qimport3strtypes.pas

在C++Builder中直接用于数据的输出

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.