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

git-svn-id: trunk@28030 -

packages/fcl-db/src/dbase/dbf_dbffile.pas

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