Z
zpselect
Unregistered / Unconfirmed
GUEST, unregistred user!
1：定义一个枚举类型变量：
TBinParameterData = (bZrdw, bQddgznr, bAppendSub, bHszf, bAutoZchs, bInTimeSave,
bZyzf, bZyzfhz, bShowOpenProjectInfo, bShowDefaultCreateProjectSetupInfo);
2:定义一个指针记录类型
PParameterData = ^TParameterData;
TParameterData = record
aBinParameterData: array[TBinParameterData] of Boolean;
BinParameter: DWord;
end;
3：调用
if ParameterData^.aBinParameterData[bAppendSub] then
begin
.....
end;
第3句代码是什么意思？给得到什么结果？
TBinParameterData = (bZrdw, bQddgznr, bAppendSub, bHszf, bAutoZchs, bInTimeSave,
bZyzf, bZyzfhz, bShowOpenProjectInfo, bShowDefaultCreateProjectSetupInfo);
2:定义一个指针记录类型
PParameterData = ^TParameterData;
TParameterData = record
aBinParameterData: array[TBinParameterData] of Boolean;
BinParameter: DWord;
end;
3：调用
if ParameterData^.aBinParameterData[bAppendSub] then
begin
.....
end;
第3句代码是什么意思？给得到什么结果？