ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/Test18.pas
(Generate patch)
# Line 120 | Line 120
120    Statement.SQLParams[0].AsInteger := 3;
121    Statement.SQLParams[1].AsBCD := StrToBCD('64100000000.011');
122    Statement.SQLParams[2].AsCurrency := 12345678912.12;
123 <  Statement.SQLParams[3].AsString := '1234561234567.123456';
123 >  try
124 >    Statement.SQLParams[3].AsString := '1234561234567.123456';
125 >  except on E:Exception do
126 >    writeln(OutFile,'Delphi has a problem with this big a number: ',E.Message);
127 >  end;
128    Statement.SQLParams[4].AsBCD := StrToBCD('11123456123456123456123456123456.123456'); {last digit should be dropped}
129    Statement.Execute;
130  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines