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

compile fixes: remove UseFloatFields entirely

Browse Source 
git-svn-id: trunk@3462 -
This commit is contained in:
micha 2006-05-09 16:23:07 +00:00
parent b698d6eb02
commit 73e6645235
2 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fcl/db/dbase/dbf.pas
View File

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

14
fcl/db/dbase/dbf_dbffile.pas
View File

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