Wahlweise auch mit TObjectList aus der
unit contnr:
Delphi-Quellcode:
var
ObjectList: TObjectList;
...
ObjectList.ownsObjects := true;
...
ObjectList.remove(obj); // free etc...sparste dir das alles von oben
dann kümmert sich die liste auch automatisch um das freigeben aller und einzelner objekte!
mâxîmôv.
{KDT}