Ausgaben in irdecoderunit.pas aufgeräumt

1 files changed, 18 insertions, 4 deletions

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;