paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 21:09:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: cosmetic.

Browse Source 
git-svn-id: trunk@26172 -
This commit is contained in:
reiniero 2013-12-03 13:56:52 +00:00
parent f7a1f04f43
commit c952076699
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-db/tests/testdbexport.pas
View File

@ -31,7 +31,7 @@ type
const const
TDetailedExportExtensions: array [TDetailedExportFormats] of string[5] = TDetailedExportExtensions: array [TDetailedExportFormats] of string[5] =
('.dbf','.dbf','.dbf','.csv','.txt','.dbf','.json','.rtf','.sql','.tex', ('.dbf','.dbf','.dbf','.csv','.txt','.dbf','.json','.rtf','.sql','.tex',
'.xml','.xml','.xml','.xml','.xml'); //File extension for the corresponding TExportFormat '.xml','.xml','.xml','.xml','.xml'); //File extension for the corresponding TDetailedExportFormats
type type
{ TTestDBExport } { TTestDBExport }
TTestDBExport = class(TTestCase) TTestDBExport = class(TTestCase)
@ -73,8 +73,15 @@ implementation
function TTestDBExport.FieldSupported(const FieldType: TFieldType; function TTestDBExport.FieldSupported(const FieldType: TFieldType;
const ExportSubFormat: TDetailedExportFormats): boolean; const ExportSubFormat: TDetailedExportFormats): boolean;
const const
DBaseVIIUnsupported=[ftUnknown,ftCurrency,ftBCD,ftTime,ftBytes,ftVarBytes,ftGraphic,ftFmtMemo,ftParadoxOle,ftTypedBinary,ftCursor,ftADT,ftArray,ftReference,ftDataSet,ftOraBlob,ftOraClob,ftVariant,ftInterface,ftIDispatch,ftGuid,ftTimeStamp,ftFMTBcd]; // Alphabetically sorted for quick review:
FoxProUnsupported=[ftUnknown,ftTime,ftVarBytes,ftGraphic,ftFmtMemo,ftParadoxOle,ftTypedBinary,ftCursor,ftADT,ftArray,ftReference,ftDataSet,ftOraBlob,ftOraClob,ftVariant,ftInterface,ftIDispatch,ftGuid,ftTimeStamp,ftFMTBcd]; DBaseVIIUnsupported=[ftADT,ftArray,ftBCD,ftBytes,ftCurrency,ftCursor,ftDataSet,
ftFMTBcd,ftFmtMemo,ftGraphic,ftGuid,ftIDispatch,ftInterface,ftOraBlob,
ftOraClob,ftParadoxOle,ftReference,ftTime,ftTimeStamp,ftTypedBinary,
ftUnknown,ftVarBytes,ftVariant];
FoxProUnsupported= [ftADT,ftArray, ftCursor,ftDataSet,
ftFMTBcd,ftFmtMemo,ftGraphic,ftGuid,ftIDispatch,ftInterface,ftOraBlob,
ftOraClob,ftParadoxOle,ftReference,ftTime,ftTimeStamp,ftTypedBinary,
ftUnknown,ftVarBytes,ftVariant];
begin begin
result:=true; result:=true;
case ExportSubFormat of case ExportSubFormat of