Ich habe das jetzt mal auf mich angepasst, jetzt habe ich aber das Problem das mir das Programm beim starten gleich abstürtzt.( bekomme keine Warnung oder Fehlermeldung)muss es dann über 'Start' => 'Programm zurücksetzen' rücksetzten
Delphi-Quellcode:
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
s: AnsiString;
begin
ComPort1.ReadStr(s, Count);
FInBuffer := FInBuffer + s;
InterPretInbuffer;
end;
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;