ueberladene Konstruktoren entfernt, int64 -> longint (fuer 32-bit-Systeme!)

1 files changed, 7 insertions, 25 deletions

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index 95a4337..8942ebf 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -30,10 +30,7 @@ type
     function findeZeichen(lw: longword): int64;
     function findeBefehl(lw: longword): int64;
   public
-    constructor create(inputName: string); overload;
-    constructor create(inputName, konfigName: string); overload;
-    constructor create(inputName: string; watte: boolean); overload;
-    constructor create(inputName, konfigName: string; watte: boolean); overload;
+    constructor create(inputName, konfigName: string; watte: boolean);
     destructor destroy; override;
     function zeileVerarbeitet: boolean;
     function befehlVerarbeitet: boolean;
@@ -68,24 +65,9 @@ var
 
 // tIRDecoder ******************************************************************
 
-constructor tIRDecoder.create(inputName: string);
-begin
-  create(inputName,false);
-end;
-
-constructor tIRDecoder.create(inputName: string; watte: boolean);
-begin
-  create(inputName,'/dev/null',watte);
-end;
-
-constructor tIRDecoder.create(inputName, konfigName: string);
-begin
-  create(inputName,konfigName,false);
-end;
-
 constructor tIRDecoder.create(inputName, konfigName: string; watte: boolean);
 var
-  i: int64;
+  i: longint;
 begin
   inherited create;
   if (length(zeichenTabelle)=0) or (length(befehlsTabelle)=0) then begin
@@ -236,7 +218,7 @@ end;
 
 function tIRDecoder.befehlVerarbeitet: boolean;
 var
-  i,cnt:          int64;
+  i,cnt:          longint;
   bef,bef2:       longword;
   cmd,params,s,t: string;
 begin
@@ -292,7 +274,7 @@ end;
 
 function tIRDecoder.gibAlleBefehle: string;
 var
-  bw:    int64;
+  bw:    longint;
   lw:    longword;
   b1,b2: boolean;
 begin
@@ -413,7 +395,7 @@ end;
 
 procedure sortiereZeichenTabelle(von,bis: int64);
 var
-  li,re,pv,i: int64;
+  li,re,pv,i: longint;
 begin
   if von>=bis then exit;
   pv:=zeichenTabelle[von];
@@ -454,7 +436,7 @@ end;
 
 procedure sortiereBefehlsTabelle(von,bis: int64);
 var
-  mi,ma,li,re,pv,pvZ,i: int64;
+  mi,ma,li,re,pv,pvZ,i: longint;
   tmp:                  tBefehl;
 begin
   tmp:=nil;
@@ -526,7 +508,7 @@ begin
   result:=0;
 end;
 
-var i: int64;
+var i: longint;
 
 initialization
   fillchar(befehlsTabelle,sizeof(befehlsTabelle),#0);