diff options
| -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 |