Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Как оптимально сделать 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-ов

---

← →
X-jedy ©   (2002-08-09 14:45) [4]

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

---

← →
Skier ©   (2002-08-09 14:51) [5]

>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
;

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c