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;