TStringList вложенный в TStringList

← →
GGWIN © (2002-09-10 18:41) [0]

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

← →
Song © (2002-09-10 18:44) [1]

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

← →
pasha_golub © (2002-09-10 19:02) [2]

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;

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

← →
GGWIN © (2002-09-10 19:21) [3]

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

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

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

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

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

TStringList вложенный в TStringList Найти похожие ветки