EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

[himitsu]

Per se sollte es eigentlich funktionieren.

Ich hätte erst gesagt: Versuch es mal mit RichEdit1.Clear; ,
aber es ist das, was letztendlich RichEdit1.Lines.Clear; auch macht.

Zitat von TRichEdit.Lines.Clear:

Delphi-Quellcode:

procedure TRichEditStrings.Clear;
begin
  RichEdit.Clear;
end;

vielleicht noch so? (alles löschen)

Delphi-Quellcode:

RichEdit1.SelectAll;
RichEdit1.ClearSelection;

Oder so, also ab zweiter Zeile löschen (alles außer der Ersten)

Delphi-Quellcode:

RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, 1, 0):
RichEdit1.SelLength := MaxInt;
RichEdit1.ClearSelection;