在Delphi中访问Enum数组

时间:2015-03-11 13:25:12

标签: arrays delphi enums

我有枚举类型:

EPosition = (eLEFT, eRIGHT, eUP, eDOWN);

和EPosition数组:

position: array[EPosition] of Integer;

分配:

if (Key = VK_UP) then
  begin
    position[eTOP]:= 1;
  end;

  if (Key = VK_DOWN) then
  begin
    position[eDOWN]:= 1;
  end;

  if (Key = VK_LEFT) then
  begin
    position[eLEFT]:= 1;
  end;

  if (Key = VK_RIGHT) then
  begin
    position[eRIGHT]:= 1;
  end;

然后这是我的错误点:

for I := 0 to 3 do
    begin
      if obSubImage.PreviewROI.position[I] = 1 then
      begin
        obSubImage.RenderROI.width:= abs(oldNewDiff.X);
        obSubImage.RenderROI.height:= formMain.imgPreview.IEBitmap.Height;
        obSubImage.RenderROI.x:= obSubImage.PreviewROI.x;
        obSubImage.RenderROI.y:= obSubImage.PreviewROI.y;
        panOffsetX:= 0;
        panOffsetY:= 0;
        obSubImage.PreviewROI.position[I]:= 0;
        renderLayer(0);
      end;
    end;

它提供了一种不兼容的类型:' EPosition'和'整数'。 我知道它为什么给,我必须写得像;

    obSubImage.PreviewROI.position[eLEFT]:= 0;

但我不喜欢'我想使用IF-ELSE结构。我想访问所有索引' LOOP中的数组。这可能吗?

1 个答案:

答案 0 :(得分:7)

您必须在循环中使用EPosition类型变量。

而不是i: integer使用i: EPosition

for i := eLEFT to eDOWN do

for i := Low(EPosition) to High(EPosition) do