paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 14:47:17 +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
TDetailedExportExtensions: array [TDetailedExportFormats] of string[5] =
('.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
{ TTestDBExport }
TTestDBExport = class(TTestCase)
@ -73,8 +73,15 @@ implementation
function TTestDBExport.FieldSupported(const FieldType: TFieldType;
const ExportSubFormat: TDetailedExportFormats): boolean;
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];
FoxProUnsupported=[ftUnknown,ftTime,ftVarBytes,ftGraphic,ftFmtMemo,ftParadoxOle,ftTypedBinary,ftCursor,ftADT,ftArray,ftReference,ftDataSet,ftOraBlob,ftOraClob,ftVariant,ftInterface,ftIDispatch,ftGuid,ftTimeStamp,ftFMTBcd];
// Alphabetically sorted for quick review:
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
result:=true;
case ExportSubFormat of