运行和初始化运行效果不一致**

dynasty0628

代码中有自定义的类
运行时类属性可以正常赋值，运行正常
但是初始化运行类属性的值赋不上

aDragon

把代码贴上来看看

dynasty0628

//类定义
type TTreeNodeEx = class(TTreeNode) //树节点类扩展
  private
    FSubMoudleID: string;
    function GetMoudleID: string;
  public
    property MoudleID: string read GetMoudleID;
    property SubMoudleID: string read FSubMoudleID write FSubMoudleID;
  end;

function TTreeNodeEx.GetMoudleID: string;
begin
   if Parent = nil then
     result:= SubMoudleID
   else
     result:= TTreeNodeEx(Parent).SubMoudleID;
end;

赋值类似：
TTreeNodeEx(tn).FSubMoudleID:= 'xxxxxx';


每次初始化运行取到的MoudleID和SubMoudleID属性的值都是空。直接运行功能是正常的

aDragon

TTreeNodeEx(tn).SubMoudleID:= 'xxxxxx';
改成这样试试

dynasty0628

还是不行

aDragon

var
  tn :  TTreeNodeEx;
begin

  tn := TTreeNodeEx.Create(nil);
  try
    tn.SubMoudleID:= 'xxxxxx';
  finally
//    tn.Free;
  end;
end;
你这样试试，我这边测试时可以的有值

dynasty0628

我的源代码是这样的：
tn:= TreeView.Items.AddChild(nil,lQuery.FieldByName('FCONTENT').AsString);

dynasty0628

初始化运行后，会把TreeView所有结点的自定义的属性值清空

aDragon

tn是怎么创建出来的？

dynasty0628

var
  tn: TTreeNode;

tn:= TreeView.Items.AddChild(nil,lQuery.FieldByName('FCONTENT').AsString);