Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.008 c
4-71448
mcs
2002-06-16 15:33
2002.08.22
создать большой файл


14-71321
jessis
2002-07-26 15:22
2002.08.22
Компиляция


3-70998
nikolo
2002-07-31 13:19
2002.08.22
Как через ADO коннектиться к DBF и Paradox?


7-71387
KarlovAF
2002-06-06 15:55
2002.08.22
Проблема с принтером...


1-71205
Goblinus
2002-08-10 11:13
2002.08.22
Пара вопросиков по PageControl





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский