diff options
| -rw-r--r-- | irdecoderunit.pas | 22 |
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; |