Tserial abschiessen

[Klaus01]

Delphi-Quellcode:

procedure TSS.tC_SerialRxData(Sender: TObject); 
  Var C : Char; 
begin 
  While (tC_Serial.ReadChar(C)>0) and not sofort_beenden  do Begin 
    tc_serial.ZapRxQueue;   // wenn dann hier den Puffer löschen

    Case C of 
      #2 : HS:=''; 
      #3 : Begin 
             tC_String:=HS; 
           End; 
      Else If Length(HS)<100 Then HS:=HS+C; 
    End; 
  End; 
end;

Nach dem Einlesen, werden die Date da noch verarbeitet?

Grüße
Klaus