简单的问题关于创建和释放对象方面的 ( 积分: 45 )

我没找到原因
Memo2.Lines.Clear;
New(ARecord);
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items;
if ARecord^.IncNumber=IncNumber_Temp then break;
Memo2.Lines.Add(BoolToStr(ARecord^.B_IndexDrop)+inttoStr(ARecord.IncNumber)+InttoStr(ARecord.Count));
end;
MyList在执行到上面以前，就都有值了，执行到Memo处发生异常，注释掉memo就没问题，百思不得其解

我没找到原因
Memo2.Lines.Clear;
New(ARecord);
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items;
if ARecord^.IncNumber=IncNumber_Temp then break;
Memo2.Lines.Add(BoolToStr(ARecord^.B_IndexDrop)+inttoStr(ARecord.IncNumber)+InttoStr(ARecord.Count));
end;
MyList在执行到上面以前，就都有值了，执行到Memo处发生异常，注释掉memo就没问题，百思不得其解

看不懂。太短了，另外你的Memo2是什么东东？放在窗口上的控件还是什么别的东西？

InttoStr(ARecord.Count));

修改成IntToStr(ARecord^.count));

可能是楼主的笔误

接受答案了.