Schade, als ich Dir eben geantwortet habe, hatte ich eine Blitzidee, von der ich dachte Sie lößt das Problem,
Leider nicht...
Delphi-Quellcode:
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Daten : String;
begin
if Buffer = '' then
begin
ComPort1.ReadStr(Daten, Count);
Buffer:=Buffer+Daten;
Bufferverarbeitung;
end;
end;
Im Anhang mal ein Screenshot, wo du sehen kannst, das der Counter der Datenbank sauber läuft, aber Datensätze (LfdNr) fehlen.