paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@24183 -
This commit is contained in:
reiniero 2013-04-07 16:21:34 +00:00
parent b9ed22b705
commit a3a9be18bc
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/dbase/history.txt
View File

@ -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)

2
packages/fcl-db/tests/dbftoolsunit.pas
View File

@ -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;