unitglbtype.~pas

Ole编程

unit UnitglbType;

interface
  type
      field = record
        fieldName: string[42]; //字段名称
        tableNum: integer;     //表序号
        cellNum: integer;      //单元格序号
  end;
  type
      appBook = record
        appName: String[100]; //申请书名称
        recordNum: integer;       //有多少条要提取的字段
        appPara: array[1..50] of field; //参数列表
  end;
  
  var
    appPara: appBook;
    index: integer;
    
implementation

end.