Ich bleib im Case hängen

[Daniel B]

Zitat von janjan:

Ich würd eventuell die Zeile
ComPort1.ReadStr(sCom, 1); durch sowas hier ersetzen:

Delphi-Quellcode:

if ComPort1.ReadStr(sCom, 1) = 1 then 
  begin
  ...
  end;

Sollte eigentlich auch so klappen, aber wer weiß das schon genau...

Das würde nichts bringen. Ich sag ja schon sCom, 1! ich lese ein Byte. Und da das Ereigniss, sprich die Prozedur nur ausgelöst wird, wenn was in den Buffer kommt, lese ich somit nur 1 und das immer. Das würde keinen Sinn machen. Ich lese ein Byte, oder gar nichts, in dem Fall wird auch die ganze Prozedur nicht aufgerufen.

Grüsse, Daniel