Commit 7016b0e9 authored by mse1's avatar mse1

* tibconnection maps decimals > 4 to ftfloat.

git-svn-id: https://mseide-msegui.svn.sourceforge.net/svnroot/mseide-msegui/trunk@3035 56ecf5fe-6917-0410-8ac6-ca8e178bccbf
parent 146db495
......@@ -216,7 +216,7 @@ function clientminorversion: integer;
implementation
uses
strutils,msesysintf;
strutils,msesysintf,msebits;
function clientversion: string;
var
......@@ -1110,7 +1110,7 @@ begin
case DataType of
ftBCD: begin
getbcdnum;
c:= i64*intpower(10,4+SQLScale);
int64(c):= i64 * intexp10ar[4+SQLScale];
Move(c,buffer^,sizeof(c));
end;
ftInteger,ftsmallint: begin
......
......@@ -57,6 +57,9 @@ const
$0b,$8b,$4b,$cb,$2b,$ab,$6b,$eb,$1b,$9b,$5b,$db,$3b,$bb,$7b,$fb,
$07,$87,$47,$c7,$27,$a7,$67,$e7,$17,$97,$57,$d7,$37,$b7,$77,$f7,
$0f,$8f,$4f,$cf,$2f,$af,$6f,$ef,$1f,$9f,$5f,$df,$3f,$bf,$7f,$ff);
intexp10ar: array[0..9] of integer =
(1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000);
type
int64recty = record
lsw: cardinal;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment