diff options
Diffstat (limited to 'packages/fcl-db/tests/toolsunit.pas')
-rw-r--r-- | packages/fcl-db/tests/toolsunit.pas | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/packages/fcl-db/tests/toolsunit.pas b/packages/fcl-db/tests/toolsunit.pas index b3ab9625e3..1580f6fed2 100644 --- a/packages/fcl-db/tests/toolsunit.pas +++ b/packages/fcl-db/tests/toolsunit.pas @@ -526,8 +526,6 @@ end; procedure InitialiseDBConnector; -const B: array[boolean] of char=('0','1'); // should be exported from some main db unit, as SQL true/false? - var DBConnectorClass : TPersistentClass; i : integer; FormatSettings : TFormatSettings; @@ -548,7 +546,7 @@ begin testValues[ftFMTBcd] := testFmtBCDValues; for i := 0 to testValuesCount-1 do begin - testValues[ftBoolean,i] := B[testBooleanValues[i]]; + testValues[ftBoolean,i] := BoolToStr(testBooleanValues[i], True); testValues[ftFloat,i] := FloatToStr(testFloatValues[i],FormatSettings); testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]); testValues[ftInteger,i] := IntToStr(testIntValues[i]); |