TMemo in Android "hängt'

[skoschke]

Hallo,

in einer App zur Stromzählerauslesung verwende ich ein TMemo zur Kommunikationsanzeige...

Die vom Zähler empfangenen Zeilen packe ich so in etwa ins Memo:

Delphi-Quellcode:

 
  //inbuffer sind die am COMPort angekommenen Zeichen
  p := pos(cr + lf, inbuffer);
  while p <> 0 do
  begin
    zl := copy(inbuffer, 1, p - 1);
    Memo.lines.Add(zl);
    inbuffer := copy(inbuffer, p + 2, inbuffer.Length - p - 1);
    p := pos(cr + lf, inbuffer);
  end;
  Memo.GoToTextEnd;
  Memo.GoToLineBegin;

Die beiden letzten Zeilen sollen dafür sorgen, dass immer das Ende der Daten sichtbar ist.

Bei den geschätzt ersten 4000 Zeilen geht das auch recht flüssig, danach wird es immer zäher ind das Memo aktualisiert sich nur noch etwa alle 30, zum Ende hin alle 50 Zeilen (man sieht große Sprünge)

Insgesamt sind ca. 6000 Zeilen zu bearbeiten!

Hat jemand eine Idee, wie man das flüssiger hinbekommen kann?

Ciao
Stefan