paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed SQLScale compare in TranslateFldType from a set compare to a real integer compare

Browse Source
This commit is contained in:
armin 2004-12-16 21:11:35 +00:00
parent 41e0b1a0a7
commit c087b23a91
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/sqldb/interbase/ibconnection.pp
View File

@ -298,7 +298,7 @@ procedure TIBConnection.TranslateFldType(SQLType, SQLLen, SQLScale : integer; va
begin begin
LensSet := False; LensSet := False;
if SQLScale in [-4..-1] then if (SQLScale >= -4) and (SQLScale <= -1) then //in [-4..-1] then
begin begin
LensSet := True; LensSet := True;
TrLen := SQLScale; TrLen := SQLScale;