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

* fcl-db: dbase: language string is only supported on Visual DBaseVII formats. Return empty for other formats.

Browse Source 
git-svn-id: trunk@28030 -
This commit is contained in:
reiniero 2014-06-22 08:50:50 +00:00
parent e2c58f9f89
commit 7441885f5a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/dbase/dbf_dbffile.pas
View File

@ -1243,8 +1243,10 @@ end;
function TDbfFile.GetLanguageStr: string;
begin
if FDbfVersion >= xBaseVII then
Result := PEndFixedHdrVII(PChar(Header) + SizeOf(rDbfHdr))^.LanguageDriverName;
if FDbfVersion = xBaseVII then
Result := PEndFixedHdrVII(PChar(Header) + SizeOf(rDbfHdr))^.LanguageDriverName
else
Result := ''; // Only supported in DbaseVII
end;
function TDbfFile.IsNullFlagSet(const Src: Pointer; var AFieldDef: TDbfFieldDef; WhichField: TNullFieldFlag): boolean;