| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как оптимально сделать Create и Free куче переменных TStringlist? [D6, Win2k]
X-jedy © (2002-08-09 14:24:00)Извините за глупый вопрос, просто раньше всегда обходился без этого, а сейчас столкнулся с ситуацией, когда надо Create и Free целой куче переменных типа TStringList. Вроде делается очень просто... Помогите ПЛЗ...
Skier (2002-08-09 14:51:00) [1]>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
X-jedy (2002-08-09 14:45:00) [2]Угу, т.е можно облегчить только Free, да? TStringList.Create все равно придется писать 50 раз? :(
Skier (2002-08-09 14:39:00) [3]>X-jedy
> надо как-нить через цикл...
Ну так занеси все свои TStringList-ы в TList и в цикле
освобождай...(TObjectList тоже в струю :) )
А красивее всего написать свой класс для хранения TStringList-ов
X-jedy (2002-08-09 14:36:00) [4]Ну имеется в виду что неохото каждую руками прописывать, надо как-нить через цикл...
Skier (2002-08-09 14:27:00) [5]>X-jedy
>надо Create и Free целой куче переменных типа TStringList
> Помогите ПЛЗ...
А в чём собственно проблема ?
| |
