Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TStringList вложенный в TStringList [D6, Win95/98]


GGWIN ©   (2002-09-10 18:41:00) 

Вопрос конечно ламерский, но чес слово что-то клинит меня.
В TStringList есть Items и Objects мне нужно для каждого Итема забацать свой Объект типа TStringList.
Ну в общем это и есть вопрос - КАК это сделать?
Если можно буду рад краткому примеру.


Вконец озверевший кадастрат   (2002-09-10 19:22:00) [1]

Добавлю, что доступ к этому делу делаем так:
TStringsList(SL.Objects[i])
Or
SL.Objects[i] as TStringList

напр:
TStringsList(SL.Objects[i]).Items......


GGWIN   (2002-09-10 19:21:00) [2]

Все гениальное блин просто!
Че я тупил ???....

Как говорится Вери Сенькс. :)))


pasha_golub   (2002-09-10 19:02:00) [3]


var SL,SL_N: TStringList;
i: integer;
begin
SL := TStingList.Create;
for i:= 0 to <кол-во строк>-1 do
begin
SL_N := TStringList.Create;
SL.Append("String"+inttostr(i));
SL.Objects[i] := SL_N;
end;
end;


Соответственно все это потом надо будет освободить в цикле.


Song   (2002-09-10 18:44:00) [4]

Создать все эти объекты, а потом прописать их указатели в TStringList.Object


Наверх

Титульная страница Поиск, карта сайта Написать письмо