Überlauf TMemo

[Jens Hartmann]

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:

Delphi-Quellcode:

const
   Memo1Limit = 10;

implementation

{$R *.dfm}

procedure TForm2.Memo1Change(Sender: TObject);
begin
   if Memo1.lines.Count > Memo1Limit then
     Memo1.Lines.Delete(0);
end;

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

[Sir Rufo]

Wenn du die Werte direkt in das Memo schreibst und die überflüssigen Zeilen aus dem Memo löschst, dann benutzt du das Memo eben nicht nur zum Anzeigen, sondern auch zum Speichern der Daten.

Korrekterweise eben in eine StringList, diese anpassen und dann mit Memo.Lines.Assign( LogStrings ); an das Memo durchreichen.

[jaenicke]

Ich würde wieder einmal eine TVirtualStringTree benutzen.

Das ist um Größenordnungen schneller als ein TMemo und auch viel einfacher als ständig den Text zu justieren, da du nur in OnGetText die passende Zeile zur Verfügung stellen musst. Außerdem sieht das für den Benutzer auch komisch aus, wenn er im Memo gerade scrollt und du dann etwas änderst.
Du kannst mit einer VirtualTree im Hintergrund auch einen schnellen Ringpuffer benutzen, wenn du nur einen Teil der Daten anzeigen willst.

[Jens Hartmann]

@Sir Rufo: Danke erstmal. Hab das ganze aktuell mal als Stringlist aufgebaut.

Delphi-Quellcode:

//Global
MemoBuffer : TStringList;

const
  MemoMaxLimit = 2000;  

//im OnCreate der Form
MemoBuffer := TStringlist.Create;

//im OnDestroy
MemoBuffer.Free;

//In den erforderlichen Datenpacketen
UpdateStríngList('Datenpacket');

procedure TfMainVtServer.UpdateStringList(NewLine: string);
begin
  try
    MemoBuffer.Add(NewLine);
    if MemoBuffer.Count =  MemoMaxLimit then
      begin
        MemoBuffer.Delete(0);
      end;
    mProtokoll.Lines.Assign(MemoBuffer);
  except
    on E: Exception do
    begin
      redtErrorMessages.Lines.Add(e.Message);
    end;
  end;
end;

funktioniert erst mal soweit ganz gut.

@jaenicke: Das mit vst ist eventuell auch ein Idee. Werde ich bei Gelegenheit mal ausprobieren. Allerdings, ist das Ding schon recht wuchtig für den Sinn den es erfüllen soll.

Trotzdem nochmal Danke...

Gruß Jens

[Bummi]

Listview und Listboxlassen sich ebenfalls virtuell betreiben OwnerData bzw. lbVirtual.

[Furtbichler]

Zitat von Sir Rufo:

Wenn du die Werte direkt in das Memo schreibst und die überflüssigen Zeilen aus dem Memo löschst, dann benutzt du das Memo eben nicht nur zum Anzeigen, sondern auch zum Speichern der Daten.

Ich finde, das ist genau anders herum: Indem ich die Zeilen rausschmeiße, verwende ich das Memo nur als vertikalen Lauftext oder 'TTY', also als Darstellungsparadigma einer Logs. Hmm. Noch noch einmal ein Zwitter, denn außer Darstellung geschieht ja nix. Aber ich weiß, worauf Du hinaus wolltest: '...direkt in das Memo schreibst...'.

Dein Ansatz würde bedeuten, das die Darstellung jeder neuen Zeile immer länger dauert, weil ja jedes Mal *alle* Zeilen erneut dem Memo zugewiesen werden.

Allgemein gesehen würde ich eine TLogFile-Komponente sehr praktisch finden, die alle Logausgaben speichert, aber nur die letzten N (z.B. =2000) zum Darstellen zur Verfügung stellt. Manchmal ist es doch wichtig, im Logfenster zu scrollen, um zu prüfen, was 'eben' (oder neulich) passiert ist.

Diese TLogFile-Komponente würde auch einem etwaigen Darsteller der Logausgaben per Event mitteilen können, das neue Daten zum Darstellen eingetroffen sind. Falls dies zu oft vorkommt (z.B. punktuell mehrere 1000 pro Sekunde), kann man das auch entprellen, d.h. maximal 10 Events pro Sekunde z.B. Wir hatten z.B. so ein Teil im Einsatz, das die Logausgaben mehrerer TCP-Clients verwaltet hat. Manchmal waren 20 TCP-Clients aktiv, mit 10-100 Logausgaben pro Sekunde (hoher Loglevel). Da fror dann die UI ein, weil die Events (wir haben Messages verwendet) den Messagebuffer einfach zugemüllt haben.

Diese Komponente wäre dann ein ViewModel zur Darstellung einer Logausgabe, und man könnte sowohl Jänicke als auch Bummi zufriedenstellen (oder mich mit meinem DevExpress-TcxGrid-Overkill).

[arnof]

Größe des TMemo kommt auf die Windows und die Delphi Version an, bei D5 sind es 32 KB oder 64KB.

Wenn man mal schnell eine Anzeige braucht und hier den Bug umgehen will, so nehme einfach ein TRICHEDIT stelle es auf PLAINText, dann sind es sicher 2 GB

[hathor]

Zitat von Jens Hartmann:

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"?

[p80286]

Zitat von hathor:

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"?

Ungeschickt ausgedrückt?
Ich kenne durchaus Situationen, wo man wochenlang nur die letzten 2..5 Ausgabezeilen eines Programmes braucht, und dann hat's geknirscht und man muß die letzten 1..1000 Zeilen nach der relevanten Meldung durchsuchen.

Gruß
K-H