Добавление Object в TRichEdit.Lines

← →
Provodnick © (2006-11-22 15:39) [0]

Почему нельзя добавить объект к строке в TRichEdit или TMemo? После RichEdit1.Lines.AddObject("1", obj) RichEdit1.Lines.objects[n] становится nil! Есть ли способ все-таки привязать объект к строке?

← →
DimaBr (2006-11-22 15:47) [1]

Читаем внимательно в начале страницы

Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

← →
Provodnick © (2006-11-22 15:51) [2]

Сорри. Так в какую тему писать?

← →
Provodnick © (2006-11-22 15:52) [3]

В общие написал - предъяв нет?-:)))

← →
DimaBr (2006-11-22 15:53) [4]

constructor TCustomMemo.Create(AOwner: TComponent); begin ... FLines := TMemoStrings.Create; TMemoStrings(FLines).Memo := Self; end; TMemoStrings = class(TStrings) private Memo: TCustomMemo; protected function Get(Index: Integer): string; override; function GetCount: Integer; override; function GetTextStr: string; override; procedure Put(Index: Integer; const S: string); override; procedure SetTextStr(const Value: string); override; procedure SetUpdateState(Updating: Boolean); override; public procedure Clear; override; procedure Delete(Index: Integer); override; procedure Insert(Index: Integer; const S: string); override; end;

Метод
procedure PutObject(Index: Integer; AObject: TObject); virtual;
не реализован, вот объекты и не записываются

Добавление Object в TRichEdit.Lines Найти похожие ветки