diff options
| -rw-r--r-- | irdecoderunit.pas | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/irdecoderunit.pas b/irdecoderunit.pas index 8942ebf..22c71d0 100644 --- a/irdecoderunit.pas +++ b/irdecoderunit.pas @@ -23,14 +23,14 @@ type eingabePuffer: array of longword; eingabeLaenge: int64; zustand: longword; - _watte: boolean; + _watte,_debug: boolean; procedure init; procedure tastenDruckAnhaengen(lw: longword); procedure befehlAusfuehren(cmd,params: string); function findeZeichen(lw: longword): int64; function findeBefehl(lw: longword): int64; public - constructor create(inputName, konfigName: string; watte: boolean); + constructor create(inputName, konfigName: string; watte, debug: boolean); destructor destroy; override; function zeileVerarbeitet: boolean; function befehlVerarbeitet: boolean; @@ -65,7 +65,7 @@ var // tIRDecoder ****************************************************************** -constructor tIRDecoder.create(inputName, konfigName: string; watte: boolean); +constructor tIRDecoder.create(inputName, konfigName: string; watte, debug: boolean); var i: longint; begin @@ -79,6 +79,7 @@ begin end; _watte:=watte; + _debug:=debug; ttySLeser:=tLeseProzess.create(inputName,1); fillchar(eingabePuffer,sizeof(eingabePuffer),#0); |