fcl-db/dbase: use new .AsBCD; updaeted history

git-svn-id: trunk@24183 -

packages/fcl-db/src/dbase/history.txt

@@ -31,8 +31,9 @@ BUGS & WARNINGS
     - storedefs is not updated automatically when fielddefs are changed
 
 
-FreePascal trunk:
-- initial read support for (Visual) FoxPro files (r24139)
+FreePascal trunk (future V7.0.0):
+- clarification on field types; remove some workarounds (r24169) todo: reinstate depending on test set
+- initial support for (Visual) FoxPro files (r24139)
 - annotated constants/file structure (r24139)
 - factored out get version/get codepage subprocedure for readability (r24139)
 - split out existing support for Visual FoxPro and Foxpro (r24109) 

packages/fcl-db/tests/dbftoolsunit.pas

@@ -186,7 +186,7 @@ begin
         FieldByName('FCURRENCY').AsCurrency := testCurrencyValues[i];
       // work around missing TBCDField.AsBCD:
       if (Result as TDBF).TableLevel >= 25 then
-        FieldByName('FBCD').AsFloat := StrToFLoat(testFmtBCDValues[i],Self.FormatSettings);
+        FieldByName('FBCD').AsBCD := StrToBCD(testFmtBCDValues[i],Self.FormatSettings);
       FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i], 'yyyy/mm/dd', '-');
       FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i];
       Post;