Warum ist das Löschen einer Zeile aus einer Memo so langsam?

[Bernhard Geyer]

Zitat von Der schöne Günther:

Warum ist das so?

Weil du den Control mitteilst das anhängende Aktionen nach einem Ändern der Datenbasis erst mit dem EndUpdate erfolgen sollen.
und mit Begin/Endupdate wird statt 400* die aktion nur einmal aufgeführt. WEnn nun jedes Aktualisieren 0,25 ms dauert kommst du auf deine Sekunde.

[Der schöne Günther]

Wenn mich meine Erinnerungen nicht trügen, dann hat schon das Delete() selbst so lange gebraucht, obwohl das EndUpdate() noch gar nicht kam. Ich könnte mich aber auch irren.

Kann das jemand reproduzieren? Einfach ein paar hundert Zeilen in ein Memo kloppen und dann die vorderen mittels Delete() entfernen - Das ist doch ein schlechter Witz wie lange das dauert...

[Amateurprofi]

Vielleicht so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   Memo1.Clear;
   Memo1.Lines.BeginUpdate;
   for i:=1 to 10000 do Memo1.Lines.Add('Test '+IntToStr(i));
   Memo1.Lines.EndUpdate;
end;

procedure TForm1.Button2Click(Sender: TObject);
const cr=#13; lf=#10;
var count:integer; p,p1:PChar;
begin
   if Memo1.Text='' then exit;
   p:=PChar(Memo1.text);
   p1:=p;
   count:=0;
   repeat
      case p^ of
         cr :  begin
                  inc(p);
                  if p^=lf then inc(p);
                  inc(count);
               end;
         lf :  begin
                  inc(p);
                  inc(count);
               end;
         else inc(p);
      end;
   until (p^=#0) or (count=400);
   if p^=#0 then begin
      Memo1.Text:='';
   end else begin
      count:=(NativeInt(p)-NativeInt(p1)) div SizeOf(char)+1;
      Memo1.Text:=Copy(Memo1.Text, count,maxint);
   end;
end;

[jaenicke]

Zitat von Der schöne Günther:

Kann das jemand reproduzieren? Einfach ein paar hundert Zeilen in ein Memo kloppen und dann die vorderen mittels Delete() entfernen - Das ist doch ein schlechter Witz wie lange das dauert...

Kopiere den Text einfach in eine TStringList, lösche dort die Zeilen und kopiere den Text wieder zurück...

Ein visuelles Control wie ein TMemo ist nun einmal nicht zur Datenhaltung oder -bearbeitung gedacht, sondern nur zur Anzeige und Eingabe.

[p80286]

Zitat von jaenicke:

Ein visuelles Control wie ein TMemo ist nun einmal nicht zur Datenhaltung oder -bearbeitung gedacht, sondern nur zur Anzeige und Eingabe.

Dem ist nichts hinzuzufügen. Wenn Du aber unbedingt willst, dann arbeite von hinten nach vorne, das ist etwas schneller.

Gruß
K-H

[Der schöne Günther]

Aber warum ist es dann so blitzschnell wenn ich im Endeffekt ein

• Setze Cursor nach ganz oben
• Markiere die ersten 400 Zeilen
• Entferne sie

mit der mysteriösen Perform() -Methode (siehe erster Beitrag) ausführe?

[Sir Rufo]

Zitat von Der schöne Günther:

Aber warum ist es dann so blitzschnell wenn ich im Endeffekt ein

• Setze Cursor nach ganz oben
• Markiere die ersten 400 Zeilen
• Entferne sie

mit der mysteriösen Perform() -Methode (siehe erster Beitrag) ausführe?

Weil dann nur eine Aktualisierung ausgelöst wird und weil ein TMemo keine TStringList hat, sondern der Inhalt irgendwie als TStrings veröffentlicht wird. Je nachdem, wie dieses implementiert ist, geht das eben langsam oder schnell

Ich vermute mal dass bei deinem Delete 400x diese Perform Funktion aufgerufen wird und das BeginUpdate, EndUpdate hier nicht greift

[DeddyH]

Ein Blick in die StdCtrls.pas wirkt manchmal Wunder (TCustomMemo.Lines ist vom Typ TMemoStrings, Zitat vorsichtshalber gekürzt):

Zitat:

Delphi-Quellcode:

procedure TMemoStrings.Delete(Index: Integer);
begin
  ... SendMessage(Memo.Handle, EM_LINEINDEX, Index, 0);
  ...
    ... SendMessage(Memo.Handle, EM_LINEINDEX, Index + 1, 0);
    if ... then
      SendMessage(Memo.Handle, EM_LINELENGTH, SelStart, 0);
    SendMessage(Memo.Handle, EM_SETSEL, SelStart, SelEnd);
    SendTextMessage(Memo.Handle, EM_REPLACESEL, 0, '');
  end;
end;

[terence14]

Zitat von Der schöne Günther:

Aber warum ist es dann so blitzschnell wenn ich im Endeffekt ein

• Setze Cursor nach ganz oben
• Markiere die ersten 400 Zeilen
• Entferne sie

mit der mysteriösen Perform() -Methode (siehe erster Beitrag) ausführe?

Weil nach jedem Löschen einer Zeile eine Nachricht verschickt wird.
Du kannst das mit Memo1.BeginUpdate vor dem zeilenweisen Löschen und Memo1.EndUpdate wenn alle Zeilen gelöscht wurden, unterdrücken.

MfG,
terence

[DeddyH]

Ein bisschen spät, gell?