qexport4types.pas

来自「Advanced.Export.Component.v4.01.rar,delp」· PAS 代码 · 共 22 行

unit QExport4Types;

{$I VerCtrl.inc}

interface

uses
  {$IFDEF VCL10}WideStrings{$ELSE}QExport4EmsWideStrings{$ENDIF}
  {$IFNDEF QE_UNICODE}, Classes{$ENDIF};

type
  TQExportColType = (ectInteger, ectBigint, ectFloat, ectCurrency, ectDate,
    ectTime, ectDateTime, ectString, ectBoolean, ectUnknown);

  QEString = {$IFDEF QE_UNICODE}WideString{$ELSE}string{$ENDIF};
  QEChar = {$IFDEF QE_UNICODE}WideChar{$ELSE}Char{$ENDIF};
  QEStrings = {$IFDEF QE_UNICODE}TWideStringList{$ELSE}TStrings{$ENDIF};

implementation

end.