From 970f3265a66a333950880e0e8a14e91ca2e4c7da Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 23 Oct 2015 16:58:33 +0200
Subject: debug in irdecoderunit.pas eingebaut

---
 irdecoderunit.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'irdecoderunit.pas')

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);
-- 
cgit v1.2.3-70-g09d2