diff --git a/packages/fcl-db/tests/dbftoolsunit.pas b/packages/fcl-db/tests/dbftoolsunit.pas index ce3aa26142..65307f69a1 100644 --- a/packages/fcl-db/tests/dbftoolsunit.pas +++ b/packages/fcl-db/tests/dbftoolsunit.pas @@ -100,8 +100,7 @@ begin FieldByName('FINTEGER').AsInteger := testIntValues[i]; FieldByName('FBOOLEAN').AsBoolean := testBooleanValues[i]; FieldByName('FFLOAT').AsFloat := testFloatValues[i]; - ShortDateFormat := 'yyyy-mm-dd'; - FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i]); + FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i], 'yyyy/mm/dd', '-'); FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i]; Post; end; diff --git a/packages/fcl-db/tests/toolsunit.pas b/packages/fcl-db/tests/toolsunit.pas index fea3420b3a..a27d7623c1 100644 --- a/packages/fcl-db/tests/toolsunit.pas +++ b/packages/fcl-db/tests/toolsunit.pas @@ -228,7 +228,6 @@ var DBConnectorClass : TPersistentClass; begin testValues[ftString] := testStringValues; testValues[ftFixedChar] := testStringValues; - testValues[ftDate] := testDateValues; for i := 0 to testValuesCount-1 do begin testValues[ftFloat,i] := FloatToStr(testFloatValues[i]); @@ -242,6 +241,7 @@ begin testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i]); // DecimalSeparator:='.'; testValues[ftBCD,i] := CurrToStr(testCurrencyValues[i]); + testValues[ftDate,i] := DateToStr(StrToDate(testDateValues[i], 'yyyy/mm/dd', '-')); end; if dbconnectorname = '' then raise Exception.Create('There is no db-connector specified');