FInBuffer ist eine AnsiString den Du irgendwo in Deinem Form deklarierst
InterPretInbuffer ist die Prozedur die Dir FInBuffer auswertet und kürzt.
Meine Routinen werden für Dich nicht passen, etwas in der Art könnte Dich gegf. auf den Pfad bringen
Delphi-Quellcode:
TForm1 = class(TTForm)
private
FInBuffer: AnsiString;
procedure InterPretInBuffer;
......
implementation
procedure TForm1 .InterpretInbuffer;
var
i:Integer;
part:AnsiString;
begin
i := Pos(#10,FInBuffer);
Memo1.Lines.Add(FInBuffer);
while i>0 do
begin
Part := Copy(FInBuffer,1,i-1);
FInBuffer := Copy(FInBuffer,i+1,Length(FInBuffer));
Memo2.Lines.Add(Part);
i := Pos(#10,FInBuffer);
end;
end;
Du könntest im ersten Schritt mal etwas in der Art machen: