paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +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

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

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, IBase60, sqldb, db, math, dbconst;
type
TAccessMode = (amReadWrite, amReadOnly);
TIsolationLevel = (ilConcurrent, ilConsistent, ilReadCommittedRecV,
@ -298,7 +298,7 @@ procedure TIBConnection.TranslateFldType(SQLType, SQLLen, SQLScale : integer; va
begin
LensSet := False;
if SQLScale in [-4..-1] then
if (SQLScale >= -4) and (SQLScale <= -1) then //in [-4..-1] then
begin
LensSet := True;
TrLen := SQLScale;
@ -523,7 +523,7 @@ begin
result := false
else
begin
with SQLDA^.SQLVar[x] do
if ((SQLType and not 1) = SQL_VARYING) then
begin