Работа с объектами в RichEdit

[linuxoid]

Добрый день.

Пытаюсь добавить объект в компонент RichEdit, а потом и получить доступ к этому объекту с помощью следующего кода:

procedure TForm1.Button2Click(Sender: TObject);
var
  Word: TWord;
begin
  RichEdit1.Lines.Clear;
  Word := TWord.Create(Edit1.Text);
  RichEdit1.Lines.AddObject('222',Word);
  Label2.Caption := TWord(RichEdit1.Lines.Objects[0]).FWord;
end;

Но при выполнении мне выдается сообщение об ошибке:

Access violation at address ... in module 'Project1.exe'

Подскажите пжл - что делаю не так? Спасибо.

[Пепел Феникса]

ShowMessage(IntToStr(RichEdit1.Lines.AddObject('222',Word)));

индекс точно 0?

[linuxoid]

Да точно ноль. Проверил через ShowMessage и показалось окно с индексом 0, а потом все равно ошибка

[Прик]

Беда в том, что класс TStrings "абстрактный" и применяют его только как класс-заготовку. В нем метод AddObject виртуальный и ничего не делает (отсюда у автора и ошибка - Lines.Objects[index] всегда есть nil), а метод Add вообще абстрактный. Все классы, которым нужен TStrings обязательно его наследуют и переопределяют все или часть его методов.

И TMemo, и дельфийская надстройка TRichEdit над виндовым RichEdit - переопределяют этот класс в "в свою пользу". А в этом классе уже нет места ссылкам на "объекты".

Давненько, однако, тоже попал в сложное положение, когда надо было иметь на каждую строку RichEdit'а по объекту и пришлось создавать TStringList и орудовать им в части объектов, синхронизируя действия со строками и в обоих объектах одновременно .

P.S. А то что Delphi показывает в хинте при наводке мыши на слово Lines: "Classes.TStrings", так это на его совести .

[linuxoid]

Интересно. Спасибо. Проверил ради интереса на объекте ListBox - и там это работает без проблем. Другими словами вот так все отлично:

procedure TForm1.Button2Click(Sender: TObject);
var
  Word: TWord;
begin
  Word := TWord.Create(Edit1.Text);
  ListBox1.Items.AddObject('222',Word);
  Label2.Caption := TWord(ListBox1.Items.Objects[0]).FWord;
end;