letzten linebreak aus tstrings (trichedit.lines) entfernen

[DrUArn]

Hi, comm,

@ mann mann ... : natürlich schaue ich mir die Hilfen an. Aber nicht jeder versteht wie du alles sofort ....

In den Beispielen der Hilfe finde ich:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
I: Integer;
begin
with ComboBox1 do
begin
Items.BeginUpdate; { Prevent repaints until done. }
....

Items.EndUpdate; {Reenable painting. }
end;
end;

Von meinem Verständnis: Teile ich der Liste mit, daß ich was ändern will (BeginUpdate), stellt sie sich solange nicht neu dar, bis ich mitteile, daß ich fertig bin (EndUpdate).

Delphi-Quellcode:

Procedure Test;
begin
RichEdit1.Lines.BeginUpdate;
RichEdit1.Clear;
i:=strtoint(editintegerpanel_ua1.ei.text);
for i := 0 to 1000 do TestRich1.Lines.Add(IntToStr(i));
RichEdit1.Lines.EndUpdate;
end;

In dem Beispiel wird aber mit jedem neuen Listeneintrag auch neu dargestellt, also die Liste hochgescrollt, bis der 1000ste Eintrag erreicht wird.

Damit nützt mir das BeginUpdate - EndUpdate hier nichts - keine Unterdrückung der Neudarstellung.

Aber auch LockWindowUpdate(richedit1.Handle) hilft da nicht.


Gruß uwe