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

Comparing ibx/trunk/fbintf/testsuite/Test12.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC

# Line 109 | Line 109 | begin
109      ByName('BlobData').AsString := 'Some German Special Characters like ÖÄÜöäüß';
110      ByName('BlobData2').AsBlob := Attachment.CreateBlob(Transaction,'TestData','BlobData').SetString('Some German Special Characters like ÖÄÜöäüß');
111      ByName('InClear').AsString := #$01'Test'#$0D#$C3;
112    ByName('FixedWidth').AsString := 'É';
112    end;
113 +  writeln(Outfile,'Show Param Values');
114 +  ParamInfo(Statement.SQLParams);
115    Statement.Execute;
116   end;
117  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines