TDpMacro = class(TDpObject)
  private
    _iiData: iPressData;
    function _ReplaceDQuo(cText: string): string;
    function _DelSurroundQuo(cText: string): string;
    function _ResolveCore(cText: string): WideString;
    function _ResolveCoreDeep(cText: string): WideString;
  public
    function  Resolve(cText: string; lNoMacroMark: Boolean = False): WideString;
    procedure LinkData(iiData: iPressData);
  end;

  TDpPressDataBase = class(TDpInterfaceObj, iPressData)
  private
    _FSql: string;
    _cErrMess: string;
    _FCount: Integer;
    _iErrCode: LongInt;
    _FAdoQry: TDpAdoQuery;
    _FAdoCnt: TDpAdoConnect;
    _FParaList: TDpKeyValueList;
    _lNewPage: Boolean;
    _iPage: Integer;
    _iSubPage: Integer;
    function  _GetEof: Boolean;
    function  _GetCount: Integer;
    function  _GetSqlParaCount: Integer;
    function  _GetQuery: TDpAdoQuery;
    function  _GetErrCode: LongInt;
    function  _GetErrMess: string;
    procedure _SetCount(iCount: Integer);
  public
    constructor Create; override;
    destructor Destroy; override;
    function  InitMe(adoCnt: TDpAdoConnect): Boolean;
    function  AssignSql(cSql: string): Boolean;
    function  AssignSqlPara(cPara: string; cValue: string): Boolean;
    function  ReadData: Boolean; virtual;
    function  Macro(cKey: string; oParas: TStringList): WideString; virtual;
    function  GetSqlParaKey(iIndex: Integer): string;
    function  GetSqlParaValue(iIndex: Integer): string; overload;
    function  GetSqlParaValue(cKey: string): string; overload;
    property  SqlParaCount: Integer read _GetSqlParaCount;
    property  Query: TDpAdoQuery read _GetQuery;
    property  Count: Integer read _GetCount write _SetCount;
    property  Eof: Boolean read _GetEof;
    property  NewPage: Boolean read _lNewPage write _lNewPage;
    property  Page: Integer read _iPage write _iPage;    //パPressCore 糶
    property  SubPage: Integer read _iSubPage write _iSubPage;  //パPressCore 糶
    property  ErrCode: LongInt read _GetErrCode;
    property  ErrMess: string read _GetErrMess;
    procedure MoveRecords(iStep: Integer); virtual;
    function  GetSql: string;
  end;

  TDpPressData = class(TDpPressDataBase)
  public
    function  Macro(cKey: string; oParas: TStringList): WideString; override;
  end;

  TDpPressCore = class(TDpInterfaceObj, iPresswork)
  private
    _cID: string;
    _cType: string; //S/E/C
    _cErrMess: string;
    _iCopyNum: Integer;
    _iPageFrom: Integer;
    _iPageTo: Integer;
    _iGenerated: Integer;
    _iErrCode: LongInt;
    _lAutoPrint: Boolean;
    _lFastPrint: Boolean;
    _oMacro: TDpMacro;
    _iiPressData: iPressData;
    _oPressDataObj: TDpInterfaceObj;
    _oPrinter: TDpSfcPrinter;
    _pOnNewPage: TDpEventNewPage;
    function  _GetID: string;
    function  _GetType: string;
    function  _GetErrMess: string;
    function  _GetCopyNum: Integer;
    function  _GetPrinter: TDpSfcPrinter;
    function  _GetPressData: iPressData;
    function  _GetPressDataObj: TDpInterfaceObj;
    function  _GetPageFrom: Integer;
    function  _GetPageTo: Integer;
    function  _GetErrCode: LongInt;
    procedure _SetID(cID: string);
    procedure _SetPrinter(oPrinter: TDpSfcPrinter);
    procedure _SetPressDataObj(oData: TDpInterfaceObj);
    procedure _SetCopyNum(iCopyNum: Integer);
    procedure _SetOnNewPage(pOnNewPage: TDpEventNewPage);
    procedure _SetAutoPrint(lAutoPrint: Boolean);
    procedure _SetType(cType: string);
    procedure _SetPageFrom(iPageFrom: Integer);
    procedure _SetPageTo(iPageTo: Integer);
    procedure _SetFastPrint(lFastPrint: Boolean);
    procedure _ExtractMargin(cType: string; var iX, iY: Integer);
  public
    constructor Create; override;
    Destructor Destroy; override;
    property  ID: string read _GetID write _SetID;
    property  CopyNum: Integer read _GetCopyNum write _SetCopyNum;
    property  AutoPrint: Boolean read _lAutoPrint write _SetAutoPrint;
    property  PressData: iPressData read _GetPressData;
    property  PressDataObj: TDpInterfaceObj read _GetPressDataObj write _SetPressDataObj;
    property  Printer: TDpSfcPrinter read _GetPrinter write _SetPrinter;
    property  OnNewPage: TDpEventNewPage write _SetOnNewPage;
    property  MyType: string read _GetType write _SetType;
    property  PageFrom: Integer read _GetPageFrom write _SetPageFrom;
    property  PageTo: Integer read _GetPageTo write _SetPageTo;
    property  FastPrint: Boolean write _SetFastPrint;
    property  ErrCode: LongInt read _GetErrCode;
    property  ErrMess: string read _GetErrMess;

    function  InitMe(cFile: string; adoCnt: TDpAdoConnect): Boolean; virtual; abstract;
    function  Generate: Boolean; virtual;
    function  GenerateCore: Boolean; virtual;
    function  Print: Boolean; virtual;
    procedure SetMarginLeft(iMarginLeft: Integer); virtual;
    procedure SetMarginTop(iMarginTop: Integer); virtual;
  end;

  TDpPressScript = class(TDpPressCore)
  private
    _cScriptOrg: string;  // Original Script Text
    _cScriptCvt: string;
    _cBatchFile: string;
    _lBatchPrn: Boolean; 
    _lGenerating: Boolean;
    procedure _SetBatchPrn(lBatchPrn: Boolean);
  public
    property BatchPrn: Boolean read _lBatchPrn write _SetBatchPrn;
    function InitMe(cScript: string; adoCnt: TDpAdoConnect): Boolean; override;
    function Generate: Boolean; override;
    function GenerateCore: Boolean; override;
    function Print: Boolean; override;
  end;

  TDpPressCodeSoft = class(TDpPressCore)
  private
    _iCount: Integer;
    _cTemplateFile: string;         // Keep Template File Full Path
    _lFastPrint: Boolean;
    _vCodeSoftApp: Variant;
    _vCodeSoftDoc: Variant;
    _aVarList: array of array of string;
    function _Feed: Boolean;
  public
    destructor Destroy; override;
    function InitMe(cFile: string; adoCnt: TDpAdoConnect): Boolean; override;
    function GenerateCore: Boolean; override;
    function Generate: Boolean; override;
    function Print: Boolean; override;
    property VarCount: Integer read _iCount;
    property FastPrint: Boolean read _lFastPrint write _lFastPrint; //ネΘゅンΩ
    procedure SetMarginLeft(iMarginLeft: Integer); override;
    procedure SetMarginTop(iMarginTop: Integer); override;
  end;

  TDpBarTender = class(TDpPressCore)
  private
    _iCount: Integer;
    _cTemplateFile: string;
    _vBarTenderApp: Variant;
    _vBarTenderFmt: Variant;
    _aVarList: array of array of string;
    { Private declarations }
  public
    { Public declarations }
    destructor Destroy; override;
    function InitMe(cFile: string; adoCnt: TDpAdoConnect): Boolean; override;
    function Generate: Boolean; override;
    function GenerateCore: Boolean; override;
    function Print: Boolean; override;
    property VarCount: Integer read _iCount;
    procedure SetMarginLeft(iMarginLeft: Integer); override;
    procedure SetMarginTop(iMarginTop: Integer); override;
  end;

  TDpExcelRange = record
    Row1: Integer;
    Row2: Integer;
    Col1: Integer;
    Col2: Integer;
  end;

  TDpMacroCell = class(TObject)
  private
    _FText: string;
    _FPosStr: string;
  public
    property Text: string read _FText write _FText;
    property PosStr: string read _FPosStr write _FPosStr;
    function GetPosStr(iRowOffset, iColOffset: Integer): string;
  end;

  TDpPressExcelArea = class(TObject)
  private
    _FSql: string;
    _FMacroCells: TDpList;
    _FPressData: iPressData;
    _FPressDataObj: TDpInterfaceObj;
  public
    constructor Create;
    destructor Destroy; override;
    property  SQL: string read _FSql write _FSql;
    property  MacroCells: TDpList read _FMacroCells;
    property  PressData: iPressData read _FPressData;
    property  PressDataObj: TDpInterfaceObj read _FPressDataObj;
    procedure LinkData(oData: TDpInterfaceObj);
  end;

  TDpPressExcelBase = class(TMzyExcel)
  private
{i} _cID: string;
    _cSql: string;
    _cType: string;
    _cErrMess: string;
    _iErrCode: LongInt;
    _iCopyNum: Integer;
    _lAutoPrint: Boolean;
    _lFastPrint: Boolean;

    _FMaxRow: Integer;
    _FMaxCol: Integer;
    _FDivByRow: Boolean;
    _FColMargin: Integer;
    _FRowMargin: Integer;
    _FTemplateRows: Integer;
    _FTemplateCols: Integer;
    _FLayoutRows: Integer;
    _FLayoutCols: Integer;
    _FTemplateFile: string;
    _iPageFrom: Integer;
    _iPageTo: Integer;
    _FRange: TDpExcelRange;
    _FAdoCnt: TDpAdoConnect;
    _FArea: TDpPressExcelArea;
    _FAreaList: TDpList;
    _FMacroCells: TDpList;
    _oPrinter: TDpSfcPrinter;
    function  _GetID: string;
    function  _GetType: string;
    function  _GetCopyNum: Integer;
    function  _GetPrinter: TDpSfcPrinter;
    function  _GetPageFrom: Integer;
    function  _GetPageTo: Integer;
    function  _GetErrCode: LongInt;
    function  _GetErrMess: string;
    procedure _SetID(cID: string);
    procedure _SetPrinter(oPrinter: TDpSfcPrinter);
    procedure _SetCopyNum(iCopyNum: Integer);
    procedure _SetAutoPrint(lAutoPrint: Boolean);
    procedure _SetType(cType: string);
    procedure _SetPageFrom(iPageFrom: Integer);
    procedure _SetPageTo(iPageTo: Integer);
    procedure _SetFastPrint(lFastPrint: Boolean);
  public
    constructor Create; override;
    destructor Destroy; override;
    property  ID: string read _GetID write _SetID;
    property  CopyNum: Integer read _GetCopyNum write _SetCopyNum;
    property  Printer: TDpSfcPrinter read _GetPrinter write _SetPrinter;
    property  AutoPrint: Boolean write _SetAutoPrint;
    property  SQL: string read _cSql write _cSql;
    property  DivByRow: Boolean read _FDivByRow write _FDivByRow;
    property  TemplateRows: Integer read _FTemplateRows write _FTemplateRows;
    property  TemplateCols: Integer read _FTemplateCols write _FTemplateCols;
    property  LayoutRows: Integer read _FLayoutRows write _FLayoutRows;
    property  LayoutCols: Integer read _FLayoutCols write _FLayoutCols;
    property  ColMargin: Integer read _FColMargin write _FColMargin;
    property  RowMargin: Integer read _FRowMargin write _FRowMargin;
    property  MaxRow: Integer read _FMaxRow write _FMaxRow;
    property  MaxCol: Integer read _FMaxCol write _FMaxCol;
    property  Range: TDpExcelRange read _FRange write _FRange;
    property  PageFrom: Integer read _GetPageFrom write _SetPageFrom;
    property  PageTo: Integer read _GetPageTo write _SetPageTo;
    property  MyType: string read _GetType write _SetType;
    property  FastPrint: Boolean write _SetFastPrint;
    property  ErrCode: LongInt read _GetErrCode;
    property  ErrMess: string read _GetErrMess;

    function  InitMe(cFile: string; adoCnt: TDpAdoConnect): Boolean; overload; virtual;
    function  Verify: Boolean;
    function  AddSettingSheet: Boolean;
    function  AutoAddParaSheet: Boolean;
  end;

  TDpPressExcel = class(TDpPressExcelBase, iPresswork)
  private
    _FFillArea: Boolean; //True タ恶Area
    _FRowOffset: Integer;
    _FColOffset: Integer;
    _FOnNewPage: TDpEventNewPage;
    _oMacro: TDpMacro;
    _iiPressData: iPressData;
    _oPressDataObj: TDpInterfaceObj;

    _lNewSubPage: Boolean;  //琌タ陆腑
    function  _LoadPara: Boolean;
    function  _GetPressData: iPressData;
    function  _GetPressDataObj: TDpInterfaceObj;
    procedure _FillArea;
    procedure _FillParts(oMacroCells: TDpList; lArea: Boolean = False); //恶–眎Travell card;
    procedure _SetActiveRange(iIndex: Integer);  //砞﹚–眎Travell card RowCol絛瞅
    procedure _ClearNotUsed(iBegin: Integer);
    procedure _CopyTemplateFast;
    procedure _SetPressDataObj(oData: TDpInterfaceObj);
    procedure _SetOnNewPage(pOnNewPage: TDpEventNewPage);
  public
    constructor Create; override;
    destructor Destroy; override;

    property  OnNewPage: TDpEventNewPage write _SetOnNewPage;
    property  PressData: iPressData read _GetPressData;
    property  PressDataObj: TDpInterfaceObj read _GetPressDataObj write _SetPressDataObj;

    function  InitMe(cFile: string; adoCnt: TDpAdoConnect): Boolean; override;
    function  Generate: Boolean; overload;
    function  Print: Boolean;
    procedure SetMarginLeft(iMarginLeft: Integer);
    procedure SetMarginTop(iMarginTop: Integer);
  end;

implementation

{ TDpMacro }

procedure TDpMacro.LinkData(iiData: iPressData);
begin
  _iiData := iiData;
end;

//Replace Double Quotation Marks
function TDpMacro._ReplaceDQuo(cText: string): string;
var
  cTmp: string;
  iPos: Integer;
  iPosL: Integer;
  iQuoDiff: Integer;
begin
  Result := cText;

  iPos := Pos('"', cText);
  iPosL := 0;
  iQuoDiff := 0;
  while iPos > 0 do begin
    iQuoDiff := iQuoDiff  + 1;
    if iQuoDiff mod 2 = 0 then begin
      cTmp := StrMid(Result, iPosL, iPos - iPosL + 1);
      Result := StrLeft(Result, iPosL - 1)
              + Duplicate('*', Length(cTmp))
              + StrMid(Result, iPos + 1)
              ;

      iPos := Pos('"', Result);
    end else begin
      iPosL := iPos;
      iPos := PosEx('"', Result, iPos + 1);
    end;
  end;
end;

function TDpMacro._DelSurroundQuo(cText: string): string;
var
  iPos1: Integer;
  iPos2: Integer;
begin
  Result := '';

  if cText <> '' then begin
    if SurroundBy(cText, '"') then begin
      Result := Trim(cText);
      Result := StrMid(Result, 2, Length(Result) - 2);
    end else begin
      iPos1 := Pos('"', cText);
      while iPos1 > 0 do begin
        iPos2 := PosEx('"', cText, iPos1 + 1);
        if iPos2 > 0 then begin
          Result := Result
                  + StrLeft(cText, iPos1 - 1)
                  + StrMid(cText, iPos1 + 1, iPos2 - iPos1 - 1)
                  ;
          cText := StrMid(cText, iPos2 + 1);
          iPos1 := Pos('"', cText);
        end else begin
          Break;
        end;
      end;
      Result := Result + cText;
    end;
  end;
end;


//把计 cText琌埃'<'㎝'>'场だ =>  $F(XXX)
function TDpMacro.Resolve(cText: string; lNoMacroMark: Boolean): WideString;
  function __GetMacroPart(cText: string; var iPos1, iPos2: Integer): string;
  begin
    Result := GetMacroPart(_ReplaceDQuo(cText), CST_MACRO_LEFT_MARK, CST_MACRO_RIGHT_MARK, iPos1, iPos2);
  end;

var
  iPos1: Integer;
  iPos2: Integer;
  iLmLen: Integer;
  iRmLen: Integer;
begin
  Result := '';

  if SurroundBy(cText, '"') then begin
    Result := _DelSurroundQuo(cText);
  end else begin
    iLmLen := Length(CST_MACRO_LEFT_MARK);
    iRmLen := Length(CST_MACRO_RIGHT_MARK);
    while __GetMacroPart(cText, iPos1, iPos2) <> '' do begin
      Result := Result
              + _DelSurroundQuo(StrLeft(cText, iPos1 - iLmLen - 1))
              + _ResolveCore(StrMid(cText, iPos1, iPos2 - iPos1 + 1))
              ;
      cText := StrMid(cText, iPos2 + iRmLen + 1);
    end;
  end;

  Result := Result + _DelSurroundQuo(cText);
end;

function TDpMacro._ResolveCore(cText: string): WideString;
  function __FirstMacroPos(cText: string; var iPos1: Integer; var iPos2: Integer): Boolean;
  var
    iPos: Integer;
  begin
    Result := False;
    iPos := Pos(CST_MACRO_KEY_MARK, cText);
    if iPos > 0 then begin
      iPos1 := iPos;

      iPos := PosEx('(', cText, iPos + 1);
      if iPos > 0 then begin
        if GetCorrMacroPart(cText, '(', ')', iPos, iPos2)then begin
          Result := True;
        end else begin
          SfcE.Err(E_DP_PRESSWORK_BAD_MACRO
                 , UNIT_NAME + '.TDpMacro._ResolveCore(cText: string)'
                 , Cap(CAP_THE_CONTENT_OF_TEMPLATE_ERROR) + '(' + Cap(CAP_MAYBE_BRACKET_UNMATCH) + '): ' + cText
                  );
        end;
      end else begin
        iPos2 := Length(cText);
        Result := True;
      end;
    end;
  end;
var
  iPos1: Integer;
  iPos2: Integer;
begin
  Result := '';

  while __FirstMacroPos(cText, iPos1, iPos2) do begin
    Result := _DelSurroundQuo(StrLeft(cText, iPos1 - 1))
            + _ResolveCoreDeep(StrMid(cText, iPos1, iPos2 - iPos1 + 1))
            ;
    cText := StrMid(cText, iPos2 + 1);
  end;

  Result := Result + _DelSurroundQuo(cText);
end;

function TDpMacro._ResolveCoreDeep(cText: string): WideString;
  //MacroいKey & Paras
  function __DivideInfo(cText: string
                      ; var cKey: string
                      ; var cParas: string): Boolean;
  var
    iPos: Integer;
  begin
    Result := False;

    cKey := '';
    cParas := '';

    cText := Trim(cText);
    if StrLeft(cText, Length(CST_MACRO_KEY_MARK)) = CST_MACRO_KEY_MARK then begin
      cText := StrMid(cText, Length(CST_MACRO_KEY_MARK) + 1);
      iPos := Pos('(', cText);
      if iPos > 0 then begin
        cKey := UpperCase(Trim(StrLeft(cText, iPos - 1)));
        cText := Trim(StrMid(cText, iPos));
        if (StrLeft(cText, 1) = '(') and (StrRight(cText, 1) = ')') then begin
          cParas := Trim(StrMid(cText, 2, Length(cText) - 2));
          Result := True;
        end;
      end else begin
        cKey := UpperCase(Trim(cText));
        //cText := '';
        Result := True;
      end;
    end;
  end;

  function __GetParaRightPos(cParas: WideString): Integer;
  var
    cTmp: string;
    iPos: Integer;
    iPosL: Integer;
    iPosR: Integer;
  begin
    Result := 0;

    cParas := Trim(cParas);
    if Length(cParas) = 0 then begin
      Exit;
    end;
    cParas := _ReplaceDQuo(cParas);

    iPos := Pos(',', cParas);
    if iPos = 0 then begin
      Result := Length(cParas);
    end else begin
      cTmp := cParas;
      if Pos('(', cParas) <= 0 then begin
        Result := iPos - 1;
      end else if Pos('(', cParas) > iPos then begin
        Result := iPos - 1;
      end else begin
        if GetCorrMacroPart(cTmp, '(', ')', iPosL, iPosR) then begin
          iPos := iPosR;
          iPos := iPos + __GetParaRightPos(StrMid(cParas, iPos + 1));
          Result := iPos;
        end;
      end;
    end;
  end;

  function __ExtractParas(cParas: string): TStringList;
  var
    iPos: Integer;
    cTmp: string;
  begin
    Result := TStringList.Create;
    iPos := __GetParaRightPos(cParas);
    while iPos > 0 do begin
      cTmp := Trim(StrLeft(cParas, iPos));
      Result.Add(cTmp);

      cParas := Trim(StrMid(cParas, iPos + 1));
      if StrLeft(cParas, 1) = ',' then begin
        cParas := Trim(StrMid(cParas, 2));
      end;
      iPos := __GetParaRightPos(cParas);
    end;
  end;

var
  i: Integer;
  cTmp: string;
  cKey: string;
  cParas: string;
  oParaList: TStringList;
begin
  Result := '';

  if __DivideInfo(cText, cKey, cParas) then begin
    oParaList := __ExtractParas(cParas);
    for i := 0 to oParaList.Count - 1 do begin
      cTmp := oParaList[i];
      if Pos(CST_MACRO_KEY_MARK, cTmp) > 0 then begin
        oParaList[i] := _ResolveCore(oParaList[i]);
      end else if SurroundBy(cTmp, '"') then begin
        cTmp := Trim(cTmp);
        cTmp := StrMid(cTmp, 2, Length(cTmp) - 2);
        oParaList[i] := cTmp;
      end;
    end;
    Result := _iiData.Macro(cKey, oParaList);
    oParaList.Free;
  end;
end;

帮你顶顶 

不会delphi

也不会啊，可惜了了

引用

const
  UNIT_NAME = 'DpPressNew';
  CST_MACRO_LEFT_MARK = ' <';
  CST_MACRO_RIGHT_MARK = '>';
  CST_MACRO_KEY_MARK = '$';
  CST_MAX_PAGES          = 1000000;
  CST_MAX_LAYOUT_ROWS    = 3;
  CST_MAX_LAYOUT_COLS    = 3;
  CST_MAX_COL_MARGIN      = 400;
  CST_MAX_ROW_MARGIN      = 50;
  CST_MAX_TEMPLATE_ROWS  = 80;
  CST_MAX_TEMPLATE_COLS  = 50;
  CST_KEY_MAIN            = 'MAIN';
  CST_KEY_LAYOUT          = 'LAYOUT';
  CST_KEY_LAYOUT_ROWS    = 'LAYOUT ROWS';
  CST_KEY_LAYOUT_COLS    = 'LAYOUT COLS';
  CST_KEY_DIV_BY_ROW      = 'DIV BY ROW';
  CST_KEY_TEMPLATE        = 'TEMPLATE';
  CST_KEY_TEMPLATE_ROWS  = 'TEMPLATE ROWS';
  CST_KEY_TEMPLATE_COLS  = 'TEMPLATE COLS';
  CST_KEY_MARGIN          = 'MARGIN';
  CST_KEY_MARGIN_ROW      = 'ROW MARGIN';
  CST_KEY_MARGIN_COL      = 'COLUMN MARGIN';
  CST_KEY_AREA            = 'AREA';
  CST_KEY_AREA_ROW_FROM  = 'ROW FROM';
  CST_KEY_AREA_ROW_TO    = 'ROW TO';
  CST_KEY_AREA_COL_FROM  = 'COLUMN FROM';
  CST_KEY_AREA_COL_TO    = 'COLUMN TO';
  CST_KEY_AREA_ROW_BY_ROW = 'ROW BY ROW';
  CST_KEY_SQL            = 'SQL';
  CST_KEY_CELLS          = 'CELLS';
  CST_SHEET_SETTING      = 'SETTING';
  CST_SHEET_PARAMETER    = 'PARAMETER';
  CST_SHEET_TEMPLATE      = 'TEMPLATE';
  CST_SHEET_LOG          = 'LOGS';
  CST_COL_INDEX          = 1;
  CST_COL_KEY_LEVEL1      = 2;
  CST_COL_KEY_LEVEL2      = 3;
  CST_COL_DESCRIPTION    = 4;
  CST_COL_PARA_VALUE      = 5;

Delphi是以单元文件组织代码的，而Java是以类文件组织的,所以要拆分的
常量定义：
public class ConstVar{
  public static final UNIT_NAME = 'DpPressNew';
  public static final CST_MACRO_LEFT_MARK = ' <';
  public static final CST_MACRO_RIGHT_MARK = '>';
  public static final CST_MACRO_KEY_MARK = '$';
  。。。
}

引用

TDpEventNewPage = procedure(iPage, iTotalPage: Integer 
                            ; var lCanceled: Boolean) of object; 

过程类型貌似Java中没有这种语法。

引用

iPressData = interface 
    ['{64C3BDEB-6D34-45E8-BC5A-2202B88DD379}'] 
    function  _GetEof: Boolean; 
    function  _GetCount: Integer; 
    function  _GetSqlParaCount: Integer; 
    function  _GetErrCode: LongInt; 
    function  _GetErrMess: string; 
    function  AssignSql(cSql: string): Boolean; 
    function  GetSql: string; 
    function  AssignSqlPara(cPara: string; cValue: string): Boolean; 
    function  GetSqlParaKey(iIndex: Integer): string; 
    function  GetSqlParaValue(iIndex: Integer): string; 
    function  ReadData: Boolean; 
    function  Macro(cKey: string; oParas: TStringList): WideString; 
    property  Eof: Boolean read _GetEof; 
    property  Count: Integer read _GetCount; 
    property  SqlParaCount: Integer read _GetSqlParaCount; 
    property  ErrCode: LongInt read _GetErrCode; 
    property  ErrMess: string read _GetErrMess; 
    procedure MoveRecords(iStep: Integer); 
  end; 

接口定义：
public interface IPressData  {
    public final static Boolean Eof=false;
    public final static Integer Count=0;
    public final static Integer SqlParaCount=0;
    public final static Long ErrCode=0;
    public final static String ErrMess="";
    
    Boolean  _GetEof(); 
    Integer  _GetCount(); 
    Integer  _GetSqlParaCount(); 
    Long     _GetErrCode(); 
    String   _GetErrMess(); 
     
    Boolean  AssignSql(cSql: string); 
    String   GetSql(); 
    Boolean  AssignSqlPara(cPara: string; cValue: string); 
    String   GetSqlParaKey(iIndex: Integer); 
    String   GetSqlParaValue(iIndex: Integer); 
    Boolean  ReadData(); 
    String   Macro(cKey: string; oParas: TStringList);
    void     MoveRecords(iStep: Integer); 
}

好多函数和过程声明啊

听说Delphi做swing很爽呀？。。