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 |
|
|