diff options
| author | Erich Eckner <git@eckner.net> | 2017-12-05 08:35:42 +0100 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-12-05 08:35:42 +0100 |
| commit | deafba6cdc276a351c5e0cd11d5d1e640dc98510 (patch) | |
| tree | e8720f185b4679412190d5d963b88a4c4631ff6a | |
| parent | f17f1141bfc049e520cecd5437ec65e6b9bd1c3b (diff) | |
| download | units-deafba6cdc276a351c5e0cd11d5d1e640dc98510.tar.xz | |
irdecoderunit.pas: bugfix wenn Taste unbekannt
| -rw-r--r-- | irdecoderunit.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/irdecoderunit.pas b/irdecoderunit.pas index 4063085..3aa2c40 100644 --- a/irdecoderunit.pas +++ b/irdecoderunit.pas @@ -31,8 +31,8 @@ type procedure init; procedure tastenDruckAnhaengen(lw: longword); procedure befehlAusfuehren(cmd,params: string); - function findeZeichen(lw: longword): int64; - function findeBefehl(lw: longword): int64; + function findeZeichen(lw: longword): longword; + function findeBefehl(lw: longword): longword; procedure befehlVlltEntprellen(num: longint); public constructor create(inputName, konfigName: string; watte, debug: boolean); @@ -177,7 +177,7 @@ begin end; end; -function tIRDecoder.findeZeichen(lw: longword): int64; +function tIRDecoder.findeZeichen(lw: longword): longword; var mi,ma: int64; begin @@ -202,11 +202,11 @@ begin result:=mi; if zeichenTabelle[result]<>lw then begin writeln(stderr,'Kann Tastencode '''+intToHex(lw,4)+''' nicht finden, ignoriere Taste!'); - result:=not 0; + result:=longword(not 0); end; end; -function tIRDecoder.findeBefehl(lw: longword): int64; +function tIRDecoder.findeBefehl(lw: longword): longword; var mi,ma: int64; begin |