【搞定】请教一下下列代码为什么出错？**

mouse_vip

type

  TokenRec = record
    State: Byte;
    Value: Extended;
    FuncName: string;
  end;

  TfrmEveryDayPay = class(TForm)

  public
    Stack: array of TokenRec;
    procedure BizFormCreate(Sender: TObject);
    {public declarations}
    procedure Pop(var Token: TokenRec);
  end;

implementation  

procedure TfrmEveryDayPay.BizFormCreate(Sender: TObject);
var
  o: TokenRec;
begin
  SetLength(Stack, 15);
  o.Value := 10;
  o.State := 0;
  Stack[2] := o;
end;

procedure TfrmEveryDayPay.Button3Click(Sender: TObject);
var
  o: TokenRec;
begin
  Pop(o);
end;

procedure TfrmEveryDayPay.Pop(var Token: TokenRec);
{ Pops the top Token off of the stack }
var
  i: Integer;
begin
  i := 2;
  Token := Stack;  //在这行出错。错误信息为：List index out of bounds(17)  类型EListError
  Dec(i);
end; { Pop }

mouse_vip

上述如果是系统的Bug就结贴吧。。

jiahaiminghr

Record不是对象，不能直接赋值。

mouse_vip

procedure TfrmEveryDayPay.Pop(var Token: TokenRec); 这行如果我改成
procedure TfrmEveryDayPay.Pop(: TokenRec);  就没有问题了。
{ Pops the top Token off of the stack }
var
  i: Integer;
begin
  i := 2;
  Token := Stack;  
  Dec(i);
end; { Pop }

jiahaiminghr

楼主，抱歉。我搞错了，Record是可以直接按内容赋值的。
1楼错误暂时没有找到原因，你先用函数来替代一下吧。
function TMainForm.popT: TokenRec;
var
  i: Integer;
begin
  i := 2;
  Result := Stack;
  Dec(i);
end;

jiahaiminghr

平台对record支持不太好，建议使用Class

jiahaiminghr

楼主，如果没有其他问题就结贴了！