letzten linebreak aus tstrings (trichedit.lines) entfernen

[himitsu]

Hmmm, dann gäbe es natürlich noch BeginUpdate.

[DrUArn]

Hi, himitsu

da stehe ich gerade auf dem Schlauch.

BeginUpdate EndUpdate von tstrings ...

meinst du, daß ich die Neudarstellung von lines irgendwie stoppen kann, und erst wenn alles fertig, wieder auf den Schirm werfen?


Grüße
Uwe

[Perlsau]

Dann schau dir doch mal die Online-Hilfe zu BeginUpdate und EndUpdate an und lies, was dort steht.

mann mann ...

[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

[Dalai]

Zitat von DrUArn:

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).

Korrekt, und das funktioniert auch.

Zitat:

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.

Liegt wohl daran, dass du RichEdit1 zum Neuzeichnen sperrst, die Einträge aber in TestRich1 hinzufügst.

MfG Dalai

[DrUArn]

@Dalei: Danke, Du hast recht! Schreibfehler.

Dann werde ich damit noch ein wenig experimentieren.

Gruß Uwe

[Sir Rufo]

Zitat von DrUArn:

@Dalei: Danke, Du hast recht! Schreibfehler.

Dann werde ich damit noch ein wenig experimentieren.

Gruß Uwe

Manchmal hilft es auch den Quellcode vernünftig zu formatieren damit das Lesen und damit das Erkennen von Fehlern deutlicher und schneller ins Auge springt.

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;