homogenisiere Grosz-Klein-Schreibung

1 files changed, 28 insertions, 28 deletions

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index fa00f69..4063085 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -27,7 +27,7 @@ type
     letzterBefehl,
       zustand:       longword;
     _watte,_debug:   boolean;
-    debugDatei:      textfile;
+    debugDatei:      textFile;
     procedure init;
     procedure tastenDruckAnhaengen(lw: longword);
     procedure befehlAusfuehren(cmd,params: string);
@@ -78,10 +78,10 @@ var
 begin
   inherited create;
   if (length(zeichenTabelle)=0) or (length(befehlsTabelle)=0) then begin
-    setlength(zeichenTabelle,0);
+    setLength(zeichenTabelle,0);
     for i:=0 to length(befehlsTabelle)-1 do
       befehlsTabelle[i].free;
-    setlength(befehlsTabelle,0);
+    setLength(befehlsTabelle,0);
     befehleKonfLesen(konfigName);
   end;
 
@@ -90,14 +90,14 @@ begin
 
   if _debug then begin
     tmpDir:=trim(mkTemp('-d /tmp/fernbedienung.XXXXXX'));
-    assignFile(debugDatei,tmpdir+'/debug');
+    assignFile(debugDatei,tmpDir+'/debug');
     rewrite(debugDatei);
-    closefile(debugDatei);
-    ttySLeser:=tLeseProzess.create(inputName,tmpdir+'/kopie',1)
+    closeFile(debugDatei);
+    ttySLeser:=tLeseProzess.create(inputName,tmpDir+'/kopie',1)
   end
   else
     ttySLeser:=tLeseProzess.create(inputName,1);
-  fillchar(eingabePuffer,sizeof(eingabePuffer),#0);
+  fillchar(eingabePuffer,sizeOf(eingabePuffer),#0);
   init;
 end;
 
@@ -115,7 +115,7 @@ begin
   letzterEmpf:=false;
   ersterEmpf:=false;
   zustand:=0;
-  setlength(eingabePuffer,0);
+  setLength(eingabePuffer,0);
   eingabeLaenge:=0;
 end;
 
@@ -125,7 +125,7 @@ var
 begin
   if _debug then begin
     append(debugDatei);
-    writeln(debugDatei,inttohex(lw,4));
+    writeln(debugDatei,intToHex(lw,4));
     closeFile(debugDatei);
   end;
 
@@ -134,7 +134,7 @@ begin
 
   if _debug then begin
     append(debugDatei);
-    writeln(debugDatei,'-> '+inttohex(lw,4),' ',byte(empf),' ',byte(letzterEmpf),' ',inttohex(letztesZeichen[empf],4),' ',byte(ersterEmpf));
+    writeln(debugDatei,'-> '+intToHex(lw,4),' ',byte(empf),' ',byte(letzterEmpf),' ',intToHex(letztesZeichen[empf],4),' ',byte(ersterEmpf));
     closeFile(debugDatei);
   end;
 
@@ -143,7 +143,7 @@ begin
 
   if empf=ersterEmpf then begin
     if eingabeLaenge>=length(eingabePuffer) then
-      setlength(eingabePuffer,eingabeLaenge+1024);
+      setLength(eingabePuffer,eingabeLaenge+1024);
     eingabePuffer[eingabeLaenge]:=(findeZeichen(lw and not $08) shl 1) or byte((lw and $08) <> 0);
     if ((not eingabePuffer[eingabeLaenge]) and (not 1)) <> 0 then
       inc(eingabeLaenge);
@@ -201,7 +201,7 @@ begin
     raise exception.create('Sanity-Check nicht bestanden: mi<>ma nach Bisektion!');
   result:=mi;
   if zeichenTabelle[result]<>lw then begin
-    writeln(stderr,'Kann Tastencode '''+inttohex(lw,4)+''' nicht finden, ignoriere Taste!');
+    writeln(stderr,'Kann Tastencode '''+intToHex(lw,4)+''' nicht finden, ignoriere Taste!');
     result:=not 0;
   end;
 end;
@@ -230,7 +230,7 @@ begin
     raise exception.create('Sanity-Check nicht bestanden: mi<>ma nach Bisektion!');
   result:=mi;
   if (befehlsTabelle[result].nummer<>lw) or (befehlsTabelle[result].altZustand>zustand) then
-    raise exception.create('Kann Befehl Nummer '''+inttohex(lw,4)+''' im Zustand '+inttostr(zustand)+' nicht finden!');
+    raise exception.create('Kann Befehl Nummer '''+intToHex(lw,4)+''' im Zustand '+intToStr(zustand)+' nicht finden!');
 end;
 
 procedure tIRDecoder.befehlVlltEntprellen(num: longint);
@@ -368,11 +368,11 @@ end;
 constructor tBefehl.create;
 begin
   inherited create;
-  fillchar(cmd,sizeof(cmd),#0);
+  fillchar(cmd,sizeOf(cmd),#0);
   cmd:='';
-  fillchar(params,sizeof(params),#0);
+  fillchar(params,sizeOf(params),#0);
   params:='';
-  fillchar(neutralParams,sizeof(neutralParams),#0);
+  fillchar(neutralParams,sizeOf(neutralParams),#0);
   neutralParams:='';
 end;
 
@@ -397,19 +397,19 @@ begin
   if not konfigDatei.unfoldMacros then
     raise exception.create('Fehler beim Entfalten der Makros in '''+konfigName+'''!');
   while konfigDatei.readln(zeile) do begin // Iteration über die Zeichen
-    setlength(zeichenTabelle,length(zeichenTabelle)+1);
+    setLength(zeichenTabelle,length(zeichenTabelle)+1);
     if copy(zeile,length(zeile),1)<>':' then
       raise exception.create('Die erste Zeile einer Befehlsdefinition muss mit einem : enden, '''+zeile+''' tut das nicht!');
     delete(zeile,length(zeile),1);
     taste:=trim(zeile);
-    zeichenTabelle[length(zeichenTabelle)-1]:=strtoint(taste);
+    zeichenTabelle[length(zeichenTabelle)-1]:=strToInt(taste);
     cStat:=0;
     repeat                                 // Iteration über die Befehle pro Zeichen
       if not konfigDatei.readln(zeile) then
         raise exception.create('Unerwartetes Dateiende in '''+konfigName+''' (Taste '+taste+')!');
       if zeile='Ende' then break;
       if startetMit('Befehl:',zeile) then begin
-        setlength(befehlsTabelle,length(befehlsTabelle)+1);
+        setLength(befehlsTabelle,length(befehlsTabelle)+1);
         befehlsTabelle[length(befehlsTabelle)-1]:=tBefehl.create;
         befehlsTabelle[length(befehlsTabelle)-1].nummer:=length(zeichenTabelle)-1;
         befehlsTabelle[length(befehlsTabelle)-1].neutralParams:='';
@@ -428,11 +428,11 @@ begin
         continue;
       end;
       if startetMit('altZustand:',zeile) then begin
-        befehlsTabelle[length(befehlsTabelle)-1].altZustand:=strtoint(zeile);
+        befehlsTabelle[length(befehlsTabelle)-1].altZustand:=strToInt(zeile);
         continue;
       end;
       if startetMit('neuZustand:',zeile) then begin
-        befehlsTabelle[length(befehlsTabelle)-1].neuZustand:=strtoint(zeile);
+        befehlsTabelle[length(befehlsTabelle)-1].neuZustand:=strToInt(zeile);
         continue;
       end;
       if startetMit('einzelKlick:',zeile) then begin
@@ -546,7 +546,7 @@ begin
     inc(li);
     dec(re);
   end;
-  fillchar(tmp,sizeof(tBefehl),#0);
+  fillchar(tmp,sizeOf(tBefehl),#0);
   if li<>re+1 then
     raise exception.create('Sanity-Check nicht bestanden: li<>re+1 kann beim Quicksort nicht sein!');
   if re=bis then
@@ -609,14 +609,14 @@ end;
 var i: longint;
 
 initialization
-  fillchar(befehlsTabelle,sizeof(befehlsTabelle),#0);
-  setlength(befehlsTabelle,0);
-  fillchar(zeichenTabelle,sizeof(zeichenTabelle),#0);
-  setlength(zeichenTabelle,0);
+  fillchar(befehlsTabelle,sizeOf(befehlsTabelle),#0);
+  setLength(befehlsTabelle,0);
+  fillchar(zeichenTabelle,sizeOf(zeichenTabelle),#0);
+  setLength(zeichenTabelle,0);
 finalization
   for i:=0 to length(befehlsTabelle)-1 do
     befehlsTabelle[i].free;
-  setlength(befehlsTabelle,0);
-  setlength(zeichenTabelle,0);
+  setLength(befehlsTabelle,0);
+  setLength(zeichenTabelle,0);
 end.