Delphi 7中For..in循环的替代方案？

发布时间：2020-12-15 09:42:48 所属栏目：大数据来源：网络整理

导读：编译此代码 Link时,我在循环中遇到Delphi 7错误 procedure GetProcessorInfo;Var SMBios : TSMBios; LProcessorInfo : TProcessorInformation; LSRAMTypes : TCacheSRAMTypes;begin SMBios:=TSMBios.Create; try WriteLn('Processor Information'); if SMBio

编译此代码 Link时,我在循环中遇到Delphi 7错误

procedure GetProcessorInfo;
Var
  SMBios             : TSMBios;
  LProcessorInfo     : TProcessorInformation;
  LSRAMTypes         : TCacheSRAMTypes;
begin
  SMBios:=TSMBios.Create;
  try
      WriteLn('Processor Information');
      if SMBios.HasProcessorInfo then
      for LProcessorInfo in SMBios.ProcessorInfo do // <-- Error here
      begin
        ...
      end;
  ...
end;

错误信息：

[Error] Project1.dpr(52): Operator not applicable to this operand type

还有其他办法吗？或者我该如何解决？

解决方法

Delphi 7不支持.. in,因此您必须自己迭代TSMBios.ProcessorInfo数组

procedure GetProcessorInfo;
Var
  SMBios             : TSMBios;
  LProcessorInfo     : TProcessorInformation;
  LSRAMTypes         : TCacheSRAMTypes;
  LIdx : Integer; // add this
begin
  SMBios:=TSMBios.Create;
  try
    WriteLn('Processor Information');
    if SMBios.HasProcessorInfo then
      // for LProcessorInfo in SMBios.ProcessorInfo do
      for LIdx := Low( SMBios.ProcessorInfo ) to High( SMBios.ProcessorInfo ) do
      begin
        LProcessorInfo := SMBios.ProcessorInfo[LIdx];
        ...
      end;
  ...
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!