Thema: Delphi Überlauf TMemo

Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#11

AW: Überlauf TMemo

  Alt 13. Feb 2014, 08:29
Zitat von P80286:
Zum einen ist ein TMemo eigentlich nur für die Anzeige gedacht.
Ich nutze das ganze ja auch nur als Anzeige. Daher, sind die Daten nur von geringer Wichtigkeit. Ich möchte lediglich einen gewissen Zeitraum der vergangenen Daten sichtbar erhalten.

Die Lösung von:

Zitat von hathor:
...
nutze ich ja bereits. Allerdings, wird das OnChange ja bei jeder Änderung des Inhaltes ausgelöst. Soll heißen, eine Zeile hat bei mir etwa 80 Zeichen. Davon möchte ich z.B. die letzten 2000 sichtbar erhalten. Daraus folgt...

if TMemo.Lines.Count >= 2000 then TMemo.Lines.Delete[0] und das ins OnChange.

Nachteil: 80 Zeichen/Zeile -> 80 x OnChange ohne Sinn, Weiter gedacht: 80 Zeichen x 2000 Zeilen = 80.000 Zeichen -> 80.000 x OnChange, bis das erste mal die Funktion

TMemo.Lines.Delete[0] ausgeführt wird. Nicht zu vergessen, die fehlenden Sonderzeichen wie Zeilenvorschub, Leerzeichen etc..
Du interpretierst da etwas hinein, was ich NICHT geschrieben habe!
Es zeigt nur die letzten 10 Datenzeilen an - mehr nicht.
Wozu willst Du 2000 Zeilen in der Anzeige haben von "geringer Wichtigkeit"?
  Mit Zitat antworten Zitat