StringGrid mit Daten füllen und farblich Darstellen

[Jens Hartmann]

Count, ist die aktuelle Länge vom momentan vorhandene Puffer der EMA

Wenn ich z.B. folgendes in die Procedure eintrage, frage ich nur ein Zeichen aus dem Puffer ab.

Delphi-Quellcode:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Daten  : String;
begin
  if Buffer = '' then
  begin
  ComPort1.ReadStr(Daten, 1);  //So wird ein Zeichen gelesen
  Buffer:=Buffer+Daten;
  Bufferverarbeitung;
  end;
end;