+ Temporary fix for compilation

git-svn-id: trunk@3460 -

fcl/db/dbase/dbf_dbffile.pas

@@ -322,12 +322,12 @@ end;
 
 function TDbfFile.GetUseFloatFields: Boolean;
 begin
-  Result := FFieldDefs.UseFloatFields;
+//  Result := FFieldDefs.UseFloatFields;
 end;
 
 procedure TDbfFile.SetUseFloatFields(NewUse: Boolean);
 begin
-  FFieldDefs.UseFloatFields := NewUse;
+//  FFieldDefs.UseFloatFields := NewUse;
 end;
 
 procedure TDbfFile.Open;