Impulse über rs232 zählen

[Furtbichler]

Delphi-Quellcode:

Procedure TMyIrgendWas.OnCTSChanged(Sender : TObject; CTSEnabled : Boolean);
Begin
  if CTSEnabled then begin
    if not Timer.Active then
      variable :=1
    else if Now - LastSignal < OneSecond then
      variable := 2;
      
    Timer.Active := Not Timer.Active;
    LastSignal := Now;
  end 
end;

Procedure TTimer.TimerTimer(Sender : TObject);
Begin
  QuelltextAblaufen();
End;