compile fixes: remove UseFloatFields entirely

git-svn-id: trunk@3462 -

fcl/db/dbase/dbf.pas

@@ -353,7 +353,7 @@ type
 
 {$ifdef SUPPORT_VARIANTS}
     function  Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; override;
-    function  Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$ifndef FPC_VERSION}override;{$endif}
+    function  Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$ifndef FPC}override;{$endif}
 {$endif}
 
     function  IsDeleted: Boolean;
@@ -402,7 +402,6 @@ type
     property StoreDefs: Boolean read FStoreDefs write FStoreDefs default False;
     property TableName: string read FTableName write SetTableName;
     property TableLevel: Integer read FTableLevel write SetTableLevel;
-      (* default {$ifdef SUPPORT_INT64} false {$else} true {$endif}; *)
     property Version: string read GetVersion write SetVersion stored false;
     property BeforeAutoCreate: TBeforeAutoCreateEvent read FBeforeAutoCreate write FBeforeAutoCreate;
     property OnCompareRecord: TNotifyEvent read FOnCompareRecord write FOnCompareRecord;

fcl/db/dbase/dbf_dbffile.pas

@@ -74,8 +74,6 @@ type
 
     function GetLanguageId: Integer;
     function GetLanguageStr: string;
-    function GetUseFloatFields: Boolean;
-    procedure SetUseFloatFields(NewUse: Boolean);
     
   protected
     procedure ConstructFieldDefs;
@@ -134,7 +132,6 @@ type
     property PrevBuffer: PChar read FPrevBuffer;
     property ForceClose: Boolean read FForceClose;
     property CopyDateTimeAsString: Boolean read FCopyDateTimeAsString write FCopyDateTimeAsString;
-    property UseFloatFields: Boolean read GetUseFloatFields write SetUseFloatFields;
     property DateTimeHandling: TDateTimeHandling read FDateTimeHandling write FDateTimeHandling;
 
     property OnIndexMissing: TDbfIndexMissingEvent read FOnIndexMissing write FOnIndexMissing;
@@ -320,16 +317,6 @@ begin
   inherited;
 end;
 
-function TDbfFile.GetUseFloatFields: Boolean;
-begin
-//  Result := FFieldDefs.UseFloatFields;
-end;
-
-procedure TDbfFile.SetUseFloatFields(NewUse: Boolean);
-begin
-//  FFieldDefs.UseFloatFields := NewUse;
-end;
-
 procedure TDbfFile.Open;
 var
   lMemoFileName: string;
@@ -1182,7 +1169,6 @@ begin
   DestDbfFile.FileName := NewBaseName;
   DestDbfFile.AutoCreate := true;
   DestDbfFile.Mode := pfExclusiveCreate;
-  DestDbfFile.UseFloatFields := UseFloatFields;
   DestDbfFile.OnIndexMissing := FOnIndexMissing;
   DestDbfFile.OnLocaleError := FOnLocaleError;
   DestDbfFile.DbfVersion := FDbfVersion;