@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