Question

DELPHI权限设置问题

if adodataset1.Recordset.RecordCount=1 then
begin
username:=edit1.text;
qx[1]:=adodataset1.fieldbyname('权限一').asboolean;
qx[2]:=adodataset1.fieldbyname('权限二).asboolean;
qx[3]:=adodataset1.fieldbyname('权限三').asboolean;
qx[4]:=adodataset1.fieldbyname('权限四').asboolean;
close;
end

上面username 和qx[1]应该怎么定义
qx[1]:=adodataset1.fieldbyname('权限一').asboolean;是什么意思

Answer 1

var username:string;//username是字符串型
qx[1],qx[2],qx[3],qx[4]:boolean;//是布尔类型

Answer 2

qx: array of boolean；
username: string;
SetLength(qx, 4);