var
ProfileList:TObjectList;
AMan:TMan;ProfileList:=TObjectList.Create(True);
for i:=1 to ClientDataSet1.RecordCount do
begin
AMan:=TProfile.Create;
AMan.Name:=ClientDataSet1.FieldByName('Name').AsString;
AMan.Job:=ClientDataSet1.FieldByName('Job').AsString;
AMan.Dep:=ClientDataSet1.FieldByName('Dep').AsString;
AMan.Password :=ClientDataSet1.FieldByName('Password').AsString;
ProfileList.Add(AMan);
ClientDataSet1.Next;
end;
//----------------------------------------------------------
请问各位上述代码中的对象AMan用不用销毁?如何销毁?
ProfileList:TObjectList;
AMan:TMan;ProfileList:=TObjectList.Create(True);
for i:=1 to ClientDataSet1.RecordCount do
begin
AMan:=TProfile.Create;
AMan.Name:=ClientDataSet1.FieldByName('Name').AsString;
AMan.Job:=ClientDataSet1.FieldByName('Job').AsString;
AMan.Dep:=ClientDataSet1.FieldByName('Dep').AsString;
AMan.Password :=ClientDataSet1.FieldByName('Password').AsString;
ProfileList.Add(AMan);
ClientDataSet1.Next;
end;
//----------------------------------------------------------
请问各位上述代码中的对象AMan用不用销毁?如何销毁?
我是想知道Aman这个对象引用如何处理?
freeandnil(aman);
对于上述问题Aman这个对象已交于ProfileList去进行生命周期的管理
对于AMan来说只有只有一个对象引用,所以不用销毁。 如果要进行处理只需AMan=nil即可