ViewVC Help

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

root/public/ibx/branches/udr/testsuite/Test18.pas

Comparing ibx/branches/udr/testsuite/Test18.pas (file contents):
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 381 by tony, Sat Jan 15 00:06:22 2022 UTC

#	Line 120 | Line 120 | begin
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