diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas index fbd4fc1648..28762434a8 100644 --- a/packages/fcl-db/tests/testdbbasics.pas +++ b/packages/fcl-db/tests/testdbbasics.pas @@ -1207,8 +1207,8 @@ procedure TTestDBBasics.TestClearFields; begin with DBConnector.GetNDataset(true,14) do begin - open; - AssertException('Cannot call clearfields when not in edit mode',EDatabaseError,ClearFields); + Open; + AssertException('Cannot call ClearFields when not in edit mode',EDatabaseError,ClearFields); end; end; @@ -2837,8 +2837,8 @@ begin for i := 0 to testValuesCount-1 do begin - CheckEquals(CurrToStr(testCurrencyValues[i]), Fld.AsString, 'AsString'); CheckEquals(testCurrencyValues[i], Fld.AsCurrency, 'AsCurrency'); + CheckEquals(CurrToStr(testCurrencyValues[i]), Fld.AsString, 'AsString'); CheckEquals(testCurrencyValues[i], Fld.AsFloat, 'AsFloat'); ds.Next; end;