From bce9c94943cc80889f37b9aac042b76ee154557d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 26 Oct 2015 13:09:55 +0100
Subject: Ausgaben in irdecoderunit.pas aufgeräumt
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 irdecoderunit.pas | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

(limited to 'irdecoderunit.pas')

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index 7dd6a25..5b9d045 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -161,8 +161,10 @@ begin
     writeln(debugDatei,'>> '+cmd+' '+params);
     closeFile(debugDatei);
   end;
-  if _watte then
-    writeln(cmd+' '+params)
+  if _watte then begin
+    if not _debug then
+      writeln(cmd+' '+params)
+  end
   else begin
     p:=tProcess.create(nil);
     p.executable:=cmd;
@@ -254,7 +256,13 @@ begin
   if not result then exit;
 
   if s='Ha!' then begin // Startzeichen
-    writeln('Empfänger hat sich gemeldet!');
+    if _debug then begin
+      append(debugDatei);
+      writeln(debugDatei,'Empfänger hat sich gemeldet!');
+      closeFile(debugDatei);
+    end
+    else
+      writeln('Empfänger hat sich gemeldet!');
     init;
     exit;
   end;
@@ -264,7 +272,13 @@ begin
     exit;
   end;
 
-  writeln('Warnung: Kenne Kommando '''+s+''' nicht - komisch formatiert!');
+  if _debug then begin
+    append(debugDatei);
+    writeln('Warnung: Kenne Kommando '''+s+''' nicht - komisch formatiert!');
+    closeFile(debugDatei);
+  end
+  else
+    writeln('Warnung: Kenne Kommando '''+s+''' nicht - komisch formatiert!');
 end;
 
 function tIRDecoder.befehlVerarbeitet: boolean;
-- 
cgit v1.2.3-70-g09d2