type
TDepartment = class(TObject)
iDepartmentId: Integer;
iParentId: Integer;
vDepartment: String;
end;...
ThisDepartment := TDepartment.Create;
ThisDepartment := TreeView1.Selected.Data;当我把ThisDepartment 里面的数据清空的时候TreeView1.Selected.Data也被清空了(估计是指针传递),我想修改ThisDepartment数据的时候不影响TreeView1.Selected.Data,请问要怎么做?
TDepartment = class(TObject)
iDepartmentId: Integer;
iParentId: Integer;
vDepartment: String;
end;...
ThisDepartment := TDepartment.Create;
ThisDepartment := TreeView1.Selected.Data;当我把ThisDepartment 里面的数据清空的时候TreeView1.Selected.Data也被清空了(估计是指针传递),我想修改ThisDepartment数据的时候不影响TreeView1.Selected.Data,请问要怎么做?
解决方案 »
- K线图、均线、布林
- 我为什么SimpleDataSet老是失去链接
- 各位仁兄请帮助我一下!!
- 一个问题,外部程序的动态返回,难
- 关于在一个固定大小的image中显示一个大图象的问题!过来看看!
- 主窗体的界面问题,我要让mdilchildform出现在panel上面.
- 技术问题,近来看看
- 一个简单问题,希望大家指点,如何在memo中将光标指向最后一条记录,或是socrol到最后一条记录
- 怎样把把图片文件存放到扩展名为DLL的文件中,后在程序中怎么调用其中的文件
- delphi多层应用设计
- 出现incompatible type:'string'and'pointer'错误。我是新学DELHPI的想请大家帮忙!谢谢!
- 常量与变量的连接
定义两个对象,一个对象存在结点中,一个用来修改
自己写个方法
type
TDepartment = class(TObject)
iDepartmentId: Integer;
iParentId: Integer;
vDepartment: String;
procedure CopyFrom(Source: TObject);
end;procedure TDepartment.CopyFrom(Source: TObject);
begin
with TDepartment(Source) do
begin
self.iDepartmentId := iDepartmentId;
self.iParentId := iParentId;
...
end;
end;
使用的时候
ThisDepartment1 := TDepartment.Create;
给ThisDepartment1赋值,存在TreeView的结点Data里
然后再定义一个对象
ThisDepartment2,ThisDepartment2.CopyFrom(ThisDepartment1);
同样也可以ThisDepartment1.CopyFrom(ThisDepartment2);
从而达到数据的修改但你如果非得始终用一个对象ThisDepartment1,那肯定是不行的,对象的实质就是指针