这样定义:type SvLoan=record;
  dr_acc:array [1..5] of char;
  cr_acc:array [1..5] of char;
  wkdatec:array [1..9] of char;
  outname:array [1..21] of char;
  outaccno:array [1..26] of char;
  password:array [1..7] of char;
  outbankname:array [1..9] of char;
  getname:array [1..21] of char;
  getaccno:array [1..26] of char;
  _type:array [1..5] of char;//type 在DELPHI中是保留字,换个名字
  amount:double;
end;使用时,需要声明一个数据类型的实例,如
var
  MySvLoan:SvLoan;
在使用时,直接使用MySvLoan.来访问每个域,如果你更喜欢指针,可以这样声明数据类型:
type PSvLoan=^SvLoan;
  SvLoan=record;
  dr_acc:array [1..5] of char;
  cr_acc:array [1..5] of char;
  wkdatec:array [1..9] of char;
  outname:array [1..21] of char;
  outaccno:array [1..26] of char;
  password:array [1..7] of char;
  outbankname:array [1..9] of char;
  getname:array [1..21] of char;
  getaccno:array [1..26] of char;
  _type:array [1..5] of char;//type 在DELPHI中是保留字,换个名字
  amount:double;
end;
声明实例:
Var
 PMySvLoan:PSvLoan;
访问时使用:PMySvLoan^.dr_acc等方式来访问。前面声明的char数组是与WINDOWS需要的以NULL结尾的字符串数据一致的类型。