这样定义: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结尾的字符串数据一致的类型。
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结尾的字符串数据一致的类型。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货