Does TAdvMemo have a text property similar to that of TMemo. When I replaced TMemo with TAdvMemo, code with memo.text still compiled but the text is now blank. Is there a similar property which I could use for compatibility with files that were written with memo text using TMemo?
Can you try to use
AdvMemo.Lines.Text: string;
?
Hi Bruno, your suggestion (lines.text) works but there is another problem in that GetTextBuf does not seem to work.
The following works fine for a Tmemo....
procedure TForm1.Button2Click(Sender: TObject);
var
MemoText: array[0..4095] of ANSIchar;
begin
FillChar(MemoText,sizeOf(memoText),0);
Memo1.GetTextBuf(Pchar(@MemoText[0]),sizeOf(MemoText));
end;
but the following does not put the text into the buffer
procedure TForm1.Button1Click(Sender: TObject);
var
AdvMemoText: array[0..4095] of ANSIchar;
begin
FillChar(AdvMemoText,sizeOf(AdvMemoText),0);
AdvMemo1.GetTextBuf(Pchar(@AdvMemoText[0]),sizeOf(AdvMemoText));
end;
Any thoughts?
Ron
TAdvMemo does not descend from TMemo. It is designed from scratch and does not use the underlying Windows multi-line EDIT control like TMemo does. The WM_GETTEXT Windows message that is used in GetTextBuf() from a base TWinControl class is not overrriden nor implemented. I suggest to use the Lines: TStringList property to get access to the TAdvMemo content.