qimport3strtypes.pas

来自「EMS Advanced.Import.Component.v3」· PAS 代码 · 共 31 行

unit QImport3StrTypes;

{$I VerCtrl.inc}

interface

uses
  {$IFDEF VCL10} WideStrings, {$ELSE} EmsWideStrings, {$ENDIF}
  EmsWideStringGrid {$IFNDEF QI_UNICODE}, Classes, Grids{$ENDIF};

type
 {$IFDEF QI_UNICODE}
  qiString = WideString;
  qiChar = WideChar;
  PqiChar = PWideChar;
  TqiStrings = TWideStrings;
  TqiStringList = TWideStringList;
  TqiStringGrid = TEmsWideStringGrid;
 {$ELSE}
  qiString = string;
  qiChar = Char;
  PqiChar = PChar;
  TqiStrings = TStrings;
  TqiStringList = TStringList;
  TqiStringGrid = TStringGrid;
 {$ENDIF}

implementation

end.