Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Вниз
Как оптимально сделать 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c