Убить TStringlist

← →
saska © (2003-04-15 15:30) [0]

Код такого плана:

var ElmTable : TStringList; Name: String; Obj: TMyClass; ElmTable := TStringList.Create; ............................... ElmTable.AddObject(Name, TObject(Obj)); ............................... ElmTable.Free;//Здесь оч. часто возникает эксепшн

Объясните плиз, почему Эксепшн все-таки возникает, он вроде не смертельный но крайне непиятный...

Благодарствую.

← →
MBo © (2003-04-15 15:32) [1]

где создается и уничтожается Obj?

← →
Kaban © (2003-04-15 15:32) [2]

а может проблема не с TStringList, а с Obj
полный код слабо привести

← →
Skier © (2003-04-15 15:34) [3]

Вроде бы всё правильно...единственное, что Obj не создаёться,
но это не должно влиять...
А весь код слабо показать...:)

← →
saska © (2003-04-15 15:35) [4]

Вопрос хороший буду точнее:

ElmTable.AddObject(Name, TObject(TMyClass.Create));

А насчет уничтожения я думал, что при уничтожении стринг-листа для TStringList.Objects[i] дестрой вызовется аутоматично...

← →
malkolinge © (2003-04-15 15:38) [5]

> А насчет уничтожения я думал, что при уничтожении стринг-листа
> для TStringList.Objects[i] дестрой вызовется аутоматично...

Note: The TStringList object does not own the objects in the Objects array. Objects added to the Objects array still exist even if the string list is destroyed. They must be explicitly destroyed by the application.

← →
Skier © (2003-04-15 15:38) [6]

>saska
Тогда к тебе вопрос : и кто (как ты думаешь) за тебя будет
освобождать объект в такой конструкции TObject(TMyClass.Create) ?

Весь кодбольно много будет а вот TMyClass покажу:

type TXMLNodeAttrs = class(TObject) ParentTag,// имя элемента парента SelfLinkAttr,// аттрибут для связи с парентом ParentLinkAttr: string;// аттрибут парента для связи с элементом AttrList: TStringList;// список аттрибутов constructor CreateDeterminated(aParentTag, aSelfLinkAttr, aParentLinkAttr: string; aAttrList: TStringList); destructor Destroy(); private { Private declarations } public { Public declarations } end; implementation { TXMLNodeAttrs } //Объеккт хранящий все, что нам надо знать при чтении, Записи ХМЛ элемента constructor TXMLNodeAttrs.CreateDeterminated(aParentTag, aSelfLinkAttr, aParentLinkAttr: string; aAttrList: TStringList); var i: integer; begin inherited Create; AttrList := TStringList.Create; for i := 0 to (aAttrList.Count - 1) do AttrList.Add(aAttrList[i]); ParentTag := aParentTag; SelfLinkAttr := aSelfLinkAttr; ParentLinkAttr := aParentLinkAttr; end; destructor TXMLNodeAttrs.Destroy; begin AttrList.Free; inherited; end;

Может где-то здесь косяк?

По-моему
var
ElmTable : TStrings;
а не
var
ElmTable : TStringList;
...

Сначала надо уничтожить все объекты, а только потом уничтожать ElmTable. Хотя исключения быть не должно, просто утечка памяти ...

Убить TStringlist Найти похожие ветки