全局Tlist输出结构体错误

[younerest]

请教大虾们个问题：在程序中我定义一个结构体MyRecord和一个全局的Tlist;
type
MyRecord = record
Code: String;
Name: string;
Age: Integer;
end;

var
list:TList;
在窗体的OnCreate事件中初始化list list:=TList.create;
在一个button1的单击事件中给list赋值：
procedure TForm1.Button1Click(Sender: TObject);
var
col,rol:MyRecord;
i:Integer;
begin
col.Code:='1';
col.Name:='张三';
col.Age:=22;

rol.Code:='2';
rol.Name:='李四';
rol.Age:=23;

list.Add(@col);
list.Add(@rol);
end;

然后点击另一个button2，输出list中的值就会出错，提示access violation at address，请大虾们帮我看看是什么原因：
procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to list.Count-1 do
begin
ShowMessage(MyRecord((list.Items[i])^).name);
end;
end;

[younerest]

谢谢各位的热心解答。

[lhy]

你的col,rol都是局部变量，在Button1Click结束后空间都被释放了。

[s11ss]

type
PMyRecord = ^MyRecord;
MyRecord = record
Code: String;
Name: string;
Age: Integer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
col,rol:PMyRecord;
i:Integer;
begin
New(col);
col.Code:='1';
col.Name:='张三';
col.Age:=22;

New(rol);
rol.Code:='2';
rol.Name:='李四';
rol.Age:=23;

list.Add(col);
list.Add(rol);
end;


procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to list.Count-1 do
begin
ShowMessage(PMyRecord(list.Items[i])^.name);
end;
end;

[liyangliyang001]

上楼说的就对，你就照办吧，就行

[s11ss]

释放的时候用dispose(PMyRecord(list.Items[i]));

你的方式是操作栈，而且还是局部的，所以出错；在你的代码中用你的方式的时候，应当使用全局的变量。

而典型的方式是操作堆，正如我改过后的代码。

[bambuz]

增加一个指针类型定义:
PMyRecord = ^MyRecord;

ShowMessage(PMyRecord(list.Items[i])^.name); //这里改一下

[kaikai_kk]

type
PMyRecord =^ MyRecord;
MyRecord = record
Code: String;
Name: string;
Age: Integer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
col:PMyRecord;
i:Integer;
begin
new(col);
col^.Code:='1';
col^.Name:='张三';
col^.Age:=22;
list.Add(col);

new(col);
col^.Code:='2';
col^.Name:='李四';
col^.Age:=23;
list.Add(col);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to list.Count-1 do
begin
ShowMessage(PMyRecord(list.Items[i])^.name);
end;
end;

[开发语言-数据库-操作系统学习交流总Q群]

谢谢，我也学到了。我用的D7。QQ交流一下：472231001