Как оптимально сделать Create и Free куче переменных TStringlist?

← →
X-jedy © (2002-08-09 14:24) [0]

Извините за глупый вопрос, просто раньше всегда обходился без этого, а сейчас столкнулся с ситуацией, когда надо Create и Free целой куче переменных типа TStringList. Вроде делается очень просто... Помогите ПЛЗ...

← →
Skier © (2002-08-09 14:27) [1]

>X-jedy

>надо Create и Free целой куче переменных типа TStringList
> Помогите ПЛЗ...

А в чём собственно проблема ?

← →
X-jedy © (2002-08-09 14:36) [2]

Ну имеется в виду что неохото каждую руками прописывать, надо как-нить через цикл...

← →
Skier © (2002-08-09 14:39) [3]

>X-jedy

> надо как-нить через цикл...

Ну так занеси все свои TStringList-ы в TList и в цикле
освобождай...(TObjectList тоже в струю :) )

А красивее всего написать свой класс для хранения TStringList-ов

Угу, т.е можно облегчить только Free, да? TStringList.Create все равно придется писать 50 раз? :(

>X-jedy

procedure TForm1.Button2Click(Sender: TObject); var AList : TList; ii : Integer; begin AList := TList.Create; try for ii := 1 to 50 do AList.Add (TStringList.Create); //creation... for ii := 0 to AList.Count - 1 do TStringList(AList [ii]).Free; //destroying... finally AList.Free; end; //try end;

Как оптимально сделать Create и Free куче переменных TStringlist? Найти похожие ветки