diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-23 16:58:33 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-23 16:58:33 +0200 |
| commit | 970f3265a66a333950880e0e8a14e91ca2e4c7da (patch) | |
| tree | e5518c00f1d36f47a7c3862a14085e827d9cef37 | |
| parent | 7dad56999489033984bf40cf4c83b421a8002ce6 (diff) | |
| download | units-970f3265a66a333950880e0e8a14e91ca2e4c7da.tar.xz | |
debug in irdecoderunit.pas eingebaut
| -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); |