Как создать класс типа StringList

← →
Senti (2004-02-04 15:55) [0]

Задача такая мне нужно сделать виртуальный класс типа TStrings только расширенный. Каждому итему присваиваются несколько субитемов.

класс
Итем
(Субитемы)
IP,Port : string
tip : integer

как это реализуется ?

Извините за ламерский вопрос :о)

Мне просто нужно сделать возможность удаления итемов со всеми субитемами.
Как в ListView....

Спасибо

← →
Тимохов (2004-02-04 15:59) [1]

> как это реализуется ?

На дельфи.

А если серьезно - возьми TStringList и для каждой строки записывай в Objects другой TStingList с субитемами.

← →
alex_*** (2004-02-04 16:00) [2]

что такое виртуальный класс?

← →
h0use (2004-02-04 16:02) [3]

А что мешает создать просто TList и как значение заносить туда указатель на созданый класс?
Что-то вроде этого:ъ
YourList:=TList.Create; YourClass := TYourClass.Create; YourClass.IP:="128.128.128.128"; YourClass.Port:="1000"; YourClass.tip:=0; YourList.Add(YourClass);

← →
Senti (2004-02-04 17:41) [4]

хммм... идея хорошая :о)

← →
Serge (2004-02-04 17:58) [5]

Можно и так,
создаешь TStringList потом TStringList.Objects[i] присваиваень другой StringList - первый содержит итемы - второй субитемы.

← →
Семен Сорокин (2004-02-04 18:05) [6]

вариантов много.
я обычно использую связку TList + ^Record

← →
Тимохов (2004-02-04 18:13) [7]

Я обычно использую указатель на массив записей - сам выделяю память, сам освобождаю, и т.д. - самое быстрое (не по времени разработки, конечно) и экономичное (по памяти) решение.

← →
RealRascal (2004-02-04 18:15) [8]

TNode = class
Text: string;
ChildNodes: array of TNode;
end;

← →
Senti (2004-02-04 20:32) [9]

YourList:=TList.Create;
YourClass := TYourClass.Create;
YourClass.IP:="128.128.128.128";
YourClass.Port:="1000";
YourClass.tip:=0;
YourList.Add(YourClass);

А как потом достать значение YourList.Items[2] нужно YourClass.ip ?

← →
Юрий Зотов (2004-02-04 21:14) [10]

Senti (04.02.04 20:32) [9]

TYourClass(YourList.Items[2]).ip

Как создать класс типа StringList Найти похожие ветки