paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:30:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: export

Browse Source 
* dbf export: default table format DBaseIV, set default autorename for fields to true

git-svn-id: trunk@26974 -
This commit is contained in:
reiniero 2014-03-06 18:16:47 +00:00
parent 7f22ae17ff
commit 2388575d3b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-db/src/export/fpdbfexport.pp
View File

@ -28,6 +28,7 @@ Type
FTableFormat: TTableFormat; FTableFormat: TTableFormat;
public public
Procedure Assign(Source : TPersistent); override; Procedure Assign(Source : TPersistent); override;
Procedure InitSettings; override;
Published Published
Property TableFormat : TTableFormat Read FTableFormat Write FTableFormat; Property TableFormat : TTableFormat Read FTableFormat Write FTableFormat;
Property AutoRenameFields : Boolean Read FAutoRename Write FAutoRename; Property AutoRenameFields : Boolean Read FAutoRename Write FAutoRename;
@ -175,7 +176,7 @@ end;
function TFPCustomDBFExport.CreateFormatSettings: TCustomExportFormatSettings; function TFPCustomDBFExport.CreateFormatSettings: TCustomExportFormatSettings;
begin begin
Result:=TDBFExportFormatSettings.Create(False); Result:=TDBFExportFormatSettings.Create(True);
end; end;
function TFPCustomDBFExport.CreateExportFields: TExportFields; function TFPCustomDBFExport.CreateExportFields: TExportFields;
@ -284,5 +285,12 @@ begin
inherited Assign(Source); inherited Assign(Source);
end; end;
procedure TDBFExportFormatSettings.InitSettings;
begin
inherited InitSettings;
FAutoRename:=true; // sensible to avoid duplicate table names
FTableFormat:=tfDBaseIV; //often used
end;
end. end.