Скачать: CL | DM;

Как создать класс типа 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c