diff options
| -rw-r--r-- | irdecoderunit.pas | 2 | ||||
| -rw-r--r-- | lowlevelunit.pas | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/irdecoderunit.pas b/irdecoderunit.pas index 1234678..c4cb658 100644 --- a/irdecoderunit.pas +++ b/irdecoderunit.pas @@ -36,7 +36,7 @@ end; function tIRDecoder.zeileVerarbeitet: boolean; var s: string; - inByte: longint; + inByte: longword; begin result:=ttySLeser.gibZeile(s); if not result then exit; diff --git a/lowlevelunit.pas b/lowlevelunit.pas index eb54b39..729752c 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -80,8 +80,8 @@ procedure fehler(s: string); function hexDump(p: pointer; cnt: longint): string; function base64ToBin(var s: string): boolean; -function base64Decode(const s: string; out i: int64): boolean; overload; -function base64Decode(const s: string; out i: longint): boolean; overload; +function base64Decode(const s: string; out i: qword): boolean; overload; +function base64Decode(const s: string; out i: longword): boolean; overload; var base64Chars: array[0..63] of char; @@ -683,7 +683,7 @@ begin result:=true; end; -function base64Decode(const s: string; out i: int64): boolean; overload; +function base64Decode(const s: string; out i: qword): boolean; overload; var j: longint; b: byte; @@ -698,9 +698,9 @@ begin result:=true; end; -function base64Decode(const s: string; out i: longint): boolean; overload; +function base64Decode(const s: string; out i: longword): boolean; overload; var - j: int64; + j: qword; begin result:=base64Decode(s,j); if result then |