Delphi (class)

Здравствуйте, все.
Повторю свой вопрос, заданный в теме о class и object.
Подскажите простой способ создания списков экземпляров классов.
Поясняю:
Мой препод (не мудозвон :), просто немного странный чел) учил меня
классическому приему паскалистов - динамическим спискам
(однонаправленным или двунаправленным). Т.е. скажем примерно так:
PSomeListItem=^TSomeListItem;
TSomeListItem=object
value:String;
next:PSomeListItem;
end;
ну и собсна в процессе работы строиться список, в данном случае -
однонаправленный, в котором каждый элемент содержит указатель на
следующий, а последний в указателе имеет nil. Теперь осталось в
программе только хранить указатель на голову списка.
Вот как теперь быть с классами (class)?
З.Ы. и Буча, и "союз четырех" я читал. Очень интересно
Тема: Delphi (class)
В данном случае достаточно даже RECORD, а так, если нужно и в Delphi, что напиши
CLASS, и учти, что costructor Create и destructor Done у тебя уже есть. Их вызывать
надо.
То есть
type
PSomeListItem=^TSomeListItem;
TSomeListItem=class
value:String;
next:TSomeListItem;
end;
procedure TfmMain.Button1Click(Sender: TObject);
var
AList: TSomeListItem;
begin
AList:=TSomeListItem.Create;
AList.value:='first';
AList.next :=TSomeListItem.Create;
AList.next.value:='second';
ShowMessage(AList.value +#13+Alist.next.value);
AList.next.Free;
AList.Free
end;
Однако, это только схема. Для добавления новых следует добавить метод Add(ANewValue:
String): TSomeListItem;
и написать деструктор - который список очищает.
TSomeListItem - в 32-разрядном приложении не отличается от PSomeListItem. Только
мороки с ним поболее
Но често говоря, а на ... это? Есть TStrings или TStrinList
С уважением,
Борис Сурин, surin_***@m*****.ru
Номер выпуска : 2237
Возраст листа : 158 (дней)
Количество подписчиков : 390
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/89789
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru