ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test7.pas
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/Test7.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 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  

Comparing ibx/trunk/fbintf/testsuite/Test7.pas (property svn:eol-style):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

# Line 0 | Line 1
1 + native

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines