procedure TForm1.Button1Click(Sender: TObject);
var
t1,t2 :TTreeNode;
begin
t1 := tv.Items.Add(nil,'top');
t2 := tv.Items.AddChild(t1,'Children');end;procedure TForm1.Button2Click(Sender: TObject);
var
t1,t2 :TtreeNode;
begin
if tv.Selected.Level = 1 then
begin
t1 := tv.Selected ;
t2 := TTreeNode.Create(nil);
t2.Assign(t1); //问题就是此代码提示内存错误
showmessage(t2.Text );
t2.Free;
end;end;为什么 t2.assign(t1) 会出错
书中解释 如果用 t2 := t1 t1和t2指向同一地址 t2.free时把t1也释放了而
t2.assign(t1)是给t2一个副本
var
t1,t2 :TTreeNode;
begin
t1 := tv.Items.Add(nil,'top');
t2 := tv.Items.AddChild(t1,'Children');end;procedure TForm1.Button2Click(Sender: TObject);
var
t1,t2 :TtreeNode;
begin
if tv.Selected.Level = 1 then
begin
t1 := tv.Selected ;
t2 := TTreeNode.Create(nil);
t2.Assign(t1); //问题就是此代码提示内存错误
showmessage(t2.Text );
t2.Free;
end;end;为什么 t2.assign(t1) 会出错
书中解释 如果用 t2 := t1 t1和t2指向同一地址 t2.free时把t1也释放了而
t2.assign(t1)是给t2一个副本
解决方案 »
- 为何Messages.pas里面有这样的定义case Integer of 0: ?这里的Integer类型怎么看起来作变量用了?
- sql compute 在程序中怎么个用法?
- 如果判断IE窗口是否最大化
- Excel列着打印的问题
- DELPHI写的远程控制源代码,要吗?
- Jinglihui (雪狐) 如果还是缺分的话请进
- 有谁用过EHLIB中的PrintDbGridEh功能?为什么打印出来的报表特别的小?
- 寻解决方案?
- 库存管理的冗余问题
- 请问在Delphi中能否调用chm文件?如何调用并跳转到指定的关键字?
- 怎么檢測一個線程是否已經創建?
- 有请zjqyb(风清扬*任它溺水三千,我只取一瓢饮*)
是不是这里的问题呢?