ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test7.pas

Comparing ibx/trunk/fbintf/testsuite/Test7.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 353 by tony, Sat Oct 23 14:11:37 2021 UTC

#	Line 154 | Line 154 | begin
154		ParamInfo(Statement.GetSQLParams);
155		ar := Attachment.CreateArray(Transaction,'TestData','MyArray3');
156		f := 0;
157	<	for i := 0 to 16 do
157	>	for i := 0 to 13 do
158		begin
159		ar.SetAsFloat(i,f);
160		f := f + 1.05
161		end;
162	+	ar.SetAsString([14],'0.424567');
163	+	ar.SetAsString([15],'42.4567');
164	+	ar.SetAsString([16],'4269');
165		Statement.SQLParams[0].AsArray := ar;
166		Statement.Execute;
167

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines