Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#1

TMemo und Tstringlist Datenübergabe beschleunigen?

  Alt 9. Jul 2013, 12:15
Hallo zusammen,

Ausgangssituation ist ein TMemo was einige Tausend Zeilen enthält.
Zur Verarbeitung wir es in eine Stringliste kopiert, gelöscht und diese nach der Verarbeitung wieder in das Memo zurück kopiert.
Ausgerechnet der letzte Schritt dauert "ewig" was mach ich da falsch?

Delphi-Quellcode:
  Memo1.lines.BeginUpdate;
  Liste.assign(Memo1.Lines);
  Memo1.Lines.Clear;
  for i:=liste.Count-1 downto 0 do begin
    (* machwas z.b.
      if pos(text,Liste[i])>0 then
        Liste.delete(i);
     *********************** *)

  end;
  Memo1.Lines.assign(Liste);
  Memo1.lines.EndUpdate;
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat