Groß-/Kleinschreibung korrigiert

4 files changed, 187 insertions, 179 deletions

diff --git a/Make.lpr b/Make.lpr
index 8f6ef4e..493a830 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -64,11 +64,11 @@ begin
 
   mach:=tMach.create(md,pd,hasOption('w','warten'));
 
-  gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3);
+  gibAus('originale Regeln: '+intToStr(mach.anzOriAbh)+', originale Dateien: '+intToStr(mach.anzDats),3);
   mach.erzeugeRegeln;
-  gibAus('Regeln: '+inttostr(mach.anzMglAbh)+', Dateien: '+inttostr(mach.anzDats),3);
+  gibAus('Regeln: '+intToStr(mach.anzMglAbh)+', Dateien: '+intToStr(mach.anzDats),3);
   mach.findeWasZuTunIst;
-  gibAus('anzuwendende Regeln: '+inttostr(mach.anzMglAbh),3);
+  gibAus('anzuwendende Regeln: '+intToStr(mach.anzMglAbh),3);
   mach.tueWasZuTunIst(hasOption('u','unsicher'),getOptionValue('A','Ausgabe'));
 
   terminate;
@@ -77,7 +77,7 @@ end;
 constructor tMake.create(theOwner: tComponent);
 begin
   inherited create(theOwner);
-  stopOnException:=True;
+  stopOnException:=true;
 end;
 
 var
diff --git a/Make.lps b/Make.lps
index 78bf2b2..4541002 100644
--- a/Make.lps
+++ b/Make.lps
@@ -7,25 +7,25 @@
       <Unit0>
         <Filename Value="Make.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="48"/>
-        <CursorPos X="37" Y="65"/>
-        <UsageCount Value="100"/>
+        <TopLine Value="52"/>
+        <CursorPos X="42" Y="71"/>
+        <UsageCount Value="101"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="Machdatei.txt"/>
         <IsPartOfProject Value="True"/>
-        <UsageCount Value="100"/>
+        <UsageCount Value="101"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit1>
       <Unit2>
         <Filename Value="tools.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="370"/>
-        <CursorPos X="21" Y="381"/>
-        <UsageCount Value="79"/>
+        <TopLine Value="149"/>
+        <CursorPos X="22" Y="178"/>
+        <UsageCount Value="80"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -34,7 +34,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="255"/>
         <CursorPos X="14" Y="322"/>
-        <UsageCount Value="76"/>
+        <UsageCount Value="77"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
@@ -42,10 +42,10 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="dateiBeziehungen"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="1026"/>
-        <CursorPos X="11" Y="1043"/>
-        <FoldState Value=" T3ja03C pjYkO0B4]9Tk70y3]97kW0n7]99kZ0E112 pielZ0G114A"/>
-        <UsageCount Value="68"/>
+        <TopLine Value="1002"/>
+        <CursorPos X="45" Y="1031"/>
+        <FoldState Value=" T3ja03B41214 p0t1065 piejH0Ei"/>
+        <UsageCount Value="69"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
@@ -63,7 +63,7 @@
       <Unit7>
         <Filename Value="../units/lowlevelunit.pas"/>
         <EditorIndex Value="3"/>
-        <TopLine Value="1255"/>
+        <TopLine Value="1276"/>
         <CursorPos X="81" Y="1311"/>
         <UsageCount Value="16"/>
         <Loaded Value="True"/>
@@ -134,120 +134,122 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="866" Column="29" TopLine="849"/>
+        <Caret Line="64" Column="28" TopLine="46"/>
       </Position1>
       <Position2>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="997" Column="56" TopLine="990"/>
+        <Caret Line="594" Column="24" TopLine="565"/>
       </Position2>
       <Position3>
         <Filename Value="dateibeziehungen.pas"/>
       </Position3>
       <Position4>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="718" Column="40" TopLine="693"/>
+        <Caret Line="64" Column="28" TopLine="35"/>
       </Position4>
       <Position5>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="608" Column="62" TopLine="589"/>
+        <Caret Line="294" Column="52" TopLine="288"/>
       </Position5>
       <Position6>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1033" Column="87" TopLine="989"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="46" Column="11" TopLine="28"/>
       </Position6>
       <Position7>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="810" Column="62" TopLine="794"/>
+        <Caret Line="865" Column="22" TopLine="848"/>
       </Position7>
       <Position8>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="600" Column="26" TopLine="583"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="65" Column="37" TopLine="48"/>
       </Position8>
       <Position9>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="602" Column="26" TopLine="583"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="80" Column="21" TopLine="51"/>
       </Position9>
       <Position10>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1033" Column="88" TopLine="1005"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="67" Column="88" TopLine="52"/>
       </Position10>
       <Position11>
-        <Filename Value="dateibeziehungen.pas"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="69" Column="68" TopLine="52"/>
       </Position11>
       <Position12>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="600" Column="26" TopLine="584"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="423" Column="91" TopLine="402"/>
       </Position12>
       <Position13>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="59" Column="33" TopLine="41"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="468" Column="20" TopLine="436"/>
       </Position13>
       <Position14>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="285" Column="20" TopLine="164"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="454" Column="58" TopLine="436"/>
       </Position14>
       <Position15>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="762" Column="73" TopLine="755"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="420" Column="19" TopLine="403"/>
       </Position15>
       <Position16>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="100" Column="33" TopLine="82"/>
+        <Caret Line="1069" Column="64" TopLine="1052"/>
       </Position16>
       <Position17>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="724" Column="29" TopLine="695"/>
+        <Caret Line="1016" Column="64" TopLine="999"/>
       </Position17>
       <Position18>
-        <Filename Value="tools.pas"/>
-        <Caret Line="50" Column="21" TopLine="32"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1013" Column="40" TopLine="999"/>
       </Position18>
       <Position19>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="727" TopLine="473"/>
+        <Caret Line="921" Column="5" TopLine="911"/>
       </Position19>
       <Position20>
-        <Filename Value="Make.lpr"/>
-        <Caret Line="39" Column="36" TopLine="35"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="915" Column="16" TopLine="908"/>
       </Position20>
       <Position21>
-        <Filename Value="Make.lpr"/>
-        <Caret Line="65" Column="16" TopLine="41"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1004" Column="12" TopLine="976"/>
       </Position21>
       <Position22>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="104" Column="19" TopLine="75"/>
+        <Caret Line="1027" Column="80" TopLine="998"/>
       </Position22>
       <Position23>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="75" Column="23" TopLine="56"/>
+        <Caret Line="394" Column="30" TopLine="377"/>
       </Position23>
       <Position24>
         <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="493" Column="109" TopLine="456"/>
       </Position24>
       <Position25>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="75" Column="23" TopLine="46"/>
+        <Caret Line="834" Column="29" TopLine="806"/>
       </Position25>
       <Position26>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="84" Column="23" TopLine="55"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="441" Column="33" TopLine="413"/>
       </Position26>
       <Position27>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="104" Column="59" TopLine="75"/>
+        <Caret Line="637" Column="23" TopLine="619"/>
       </Position27>
       <Position28>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="276" Column="44" TopLine="127"/>
+        <Caret Line="844" Column="68" TopLine="839"/>
       </Position28>
       <Position29>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1046" Column="75" TopLine="1016"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="220" Column="80" TopLine="205"/>
       </Position29>
       <Position30>
-        <Filename Value="Make.lpr"/>
-        <Caret Line="65" Column="16" TopLine="41"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="41" Column="22" TopLine="23"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index f016faa..67e11e6 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -61,13 +61,13 @@ type
     _dats:                        tDateienMitDaten;
     function rQuellen(idx: longint): tDateienMitDaten;
     function rZiele(idx: longint): tDateienMitDaten;
-    function quellersetzung(var worin: string; quellen: tDateienMitDaten; momentanePosition: longint): boolean;
+    function quellErsetzung(var worin: string; quellen: tDateienMitDaten; momentanePosition: longint): boolean;
     function zieleHinzufuegen(ziele, quellen: tDateienMitDaten; zielFkt: string): boolean;
     function findeMehrZiele(ziele, quellen: tDateienMitDaten): boolean;
     function matchCount: longint;
   public
     quellenREs:                 array of string; // regexe der Quellen - nur deshalb kein tRegExpr, weil es ohnehin zuerst substituiert werden muss
-    zieleFkt,befehleFkt:        tStringlist;
+    zieleFkt,befehleFkt:        tStringList;
     property quellen[idx: longint]: tDateienMitDaten
       read rQuellen;
     property ziele[idx: longint]: tDateienMitDaten
@@ -80,7 +80,7 @@ type
 
   tExpliziteAbhaengigkeit = class(tObject)
     ziele,quellen: tDateienMitDaten;
-    befehle:       tStringlist;
+    befehle:       tStringList;
     constructor create;
     destructor destroy; override;
     function hatQuelleVonAlsZiel(abh: tExpliziteAbhaengigkeit): boolean;
@@ -91,7 +91,7 @@ type
 
   tMach = class
   private
-    _machDatei,_pruefsummenDatei: string;
+    _machDatei,_pruefSummenDatei: string;
     _oriAbh:                      tGenerischeAbhaengigkeiten;
     _mglAbh:                      tExpliziteAbhaengigkeiten;
     _dats:                        tDateienMitDaten;
@@ -218,20 +218,20 @@ var
   fortschritt: boolean;
 begin
   // Permutation initialisieren
-  setlength(perm,count);
+  setLength(perm,count);
   for i:=0 to length(perm)-1 do
     perm[i]:=count; // sollte ohnehin überschrieben werden, aber "count" sorgt unten für einen Fehler!
 
-  setlength(bedingungen,0); // aka "y hängt (direkt) von x ab"
+  setLength(bedingungen,0); // aka "y hängt (direkt) von x ab"
   for i:=0 to count-1 do
     for j:=0 to count-1 do
       if (i<>j) and (items[i].hatQuelleVonAlsZiel(items[j])) then begin
-        setlength(bedingungen,length(bedingungen)+1);
+        setLength(bedingungen,length(bedingungen)+1);
         bedingungen[length(bedingungen)-1].x:=i;
         bedingungen[length(bedingungen)-1].y:=j;
       end;
 
-  setlength(nehmbare,count);
+  setLength(nehmbare,count);
   for i:=0 to length(nehmbare)-1 do
     nehmbare[i]:=0;
 
@@ -277,11 +277,11 @@ constructor tGenerischeAbhaengigkeit.create(dats: tDateienMitDaten; machDatei,pr
 begin
   inherited create;
   _dats:=dats;
-  setlength(quellenREs,0);
-  zieleFkt:=tStringlist.create;
-  befehleFkt:=tStringlist.create;
-  setlength(_quellens,0);
-  setlength(_zieles,0);
+  setLength(quellenREs,0);
+  zieleFkt:=tStringList.create;
+  befehleFkt:=tStringList.create;
+  setLength(_quellens,0);
+  setLength(_zieles,0);
   _machDatei:=machDatei;
   _pruefSummenDatei:=pruefSummenDatei;
 end;
@@ -294,8 +294,8 @@ begin
     _quellens[i].free;
   setLength(_quellens,0);
   for i:=0 to length(quellenREs)-1 do
-    setlength(quellenREs[i],0);
-  setlength(quellenREs,0);
+    setLength(quellenREs[i],0);
+  setLength(quellenREs,0);
   for i:=0 to length(_zieles)-1 do
     _zieles[i].free;
   setLength(_zieles,0);
@@ -303,7 +303,7 @@ begin
   befehleFkt.free;
   for i:=0 to length(_quellens)-1 do
     _quellens[i].free;
-  setlength(_quellens,0);
+  setLength(_quellens,0);
   inherited destroy;
 end;
 
@@ -317,7 +317,7 @@ begin
   result:=_zieles[idx];
 end;
 
-function tGenerischeAbhaengigkeit.quellersetzung(var worin: string; quellen: tDateienMitDaten; momentanePosition: longint): boolean;
+function tGenerischeAbhaengigkeit.quellErsetzung(var worin: string; quellen: tDateienMitDaten; momentanePosition: longint): boolean;
 var
   s,anfang,mitte,numStr: string;
   i,li,re,qNum:          longint;
@@ -328,13 +328,19 @@ begin
     if qNum<0 then
       numStr:=''
     else
-      numStr:=inttostr(qnum);
-    s:=quellen[qnum+byte(qnum<0)].name;
+      numStr:=intToStr(qNum);
+    s:=quellen[qNum+byte(qNum<0)].name;
     ersetzeAlleVorkommen(worin,'%in'+numStr+'%',s);       // %in%
     s:=extractfilename(s);
     ersetzeAlleVorkommen(worin,'%ifile'+numStr+'%',s);    // %ifile%
-    if pos('.',s)>0 then
-      delete(s,pos('.',s),length(s));
+    i:=0;
+    while pos('.',s)>0 do begin
+      while rightStr(s,1)<>'.' do
+        delete(s,length(s),1);
+      delete(s,length(s),1);
+      inc(i);
+      ersetzeAlleVorkommen(worin,'%basename'+numStr+','+intToStr(i)+'%',s); // %basename%
+    end;
     ersetzeAlleVorkommen(worin,'%basename'+numStr+'%',s); // %basename%
   end;
 
@@ -355,8 +361,8 @@ begin
       re:=strtoint(erstesArgument(mitte,',',true));
 
     if qNum>=momentanePosition then
-      fehler('Quellersetzung sieht ''%dirname%'' für Quelle Nummer '+inttostr(qNum)+' an Position '+inttostr(momentanePosition)+'.');
-    s:=extractfilepath(quellen[qnum].name);
+      fehler('Quellersetzung sieht ''%dirname%'' für Quelle Nummer '+intToStr(qNum)+' an Position '+intToStr(momentanePosition)+'.');
+    s:=extractFilePath(quellen[qNum].name);
     if rightStr(s,1)='/' then
       delete(s,length(s),1);
     i:=anzCs('/',s)+1;
@@ -384,8 +390,8 @@ begin
     if qNum<0 then
       numStr:=''
     else
-      numStr:=inttostr(qnum);
-    s:=quellen[qnum+byte(qnum<0)].name;
+      numStr:=intToStr(qNum);
+    s:=quellen[qNum+byte(qNum<0)].name;
     while pos('%nurmit'+numStr+'''',worin)>0 do begin     // %nurmit'...'%
       anfang:=erstesArgument(worin,'%nurmit'+numStr+'''',false);
       tmpRE.expression:=erstesArgument(worin,'''%',false);
@@ -418,7 +424,7 @@ var
 begin
   result:=false;
   if pos('{',zielFkt)=0 then begin
-    if not quellersetzung(zielFkt,quellen,quellen.count) then exit;
+    if not quellErsetzung(zielFkt,quellen,quellen.count) then exit;
     if pos('*',zielFkt)=0 then begin
       zielFkt:=unescape(zielFkt);
       wasda:=false;
@@ -457,15 +463,15 @@ begin
     s:=copy(zielFkt,1,pos('{',zielFkt)-1);
     t:=copy(zielFkt,pos('{',zielFkt)+1,ende-pos('{',zielFkt)-1);
     u:=copy(zielFkt,ende+1,length(zielFkt));
-    if unescapedpos('..',t)>0 then begin
-      for i:=strtoint(copy(t,1,unescapedpos('..',t)-1)) to strtoint(copy(t,unescapedpos('..',t)+2,length(t))) do
-        zieleHinzufuegen(ziele,quellen,s+inttostr(i)+u);
+    if unEscapedPos('..',t)>0 then begin
+      for i:=strtoint(copy(t,1,unEscapedPos('..',t)-1)) to strtoint(copy(t,unEscapedPos('..',t)+2,length(t))) do
+        zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u);
     end
     else begin
       t:=t+',';
-      while unescapedpos(',',t)>0 do begin
-        zieleHinzufuegen(ziele,quellen,s+copy(t,1,unescapedpos(',',t)-1)+u);
-        delete(t,1,unescapedpos(',',t));
+      while unEscapedPos(',',t)>0 do begin
+        zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u);
+        delete(t,1,unEscapedPos(',',t));
       end;
     end;
   end;
@@ -484,7 +490,7 @@ end;
 function tGenerischeAbhaengigkeit.matchCount: longint;
 begin
   if length(_quellens)<>length(_zieles) then
-    fehler('unterschiedlich viele Sätze an Quellen ('+inttostr(length(_quellens))+') und Zielen ('+inttostr(length(_zieles))+').');
+    fehler('unterschiedlich viele Sätze an Quellen ('+intToStr(length(_quellens))+') und Zielen ('+intToStr(length(_zieles))+').');
   result:=length(_quellens);
 end;
 
@@ -499,17 +505,17 @@ begin
   result:=false;
   for i:=0 to length(_quellens)-1 do
     _quellens[i].free;
-  setlength(_quellens,0);
+  setLength(_quellens,0);
   for i:=0 to length(_zieles)-1 do
     _zieles[i].free;
-  setlength(_zieles,0);
+  setLength(_zieles,0);
 
   if length(quellenREs)=0 then exit;
 
   tmpRE:=tRegExpr.create;
   tmpQs:=tDateienMitDaten.create;
   tmpQs.count:=length(quellenREs);
-  setlength(idx,tmpQs.count);
+  setLength(idx,tmpQs.count);
   for i:=0 to length(idx)-1 do begin
     idx[i]:=-1;
     tmpQs[i]:=nil;
@@ -552,7 +558,7 @@ begin
     end;
     if i<0 then break;                   // Überlauf auf -1 => fertig
 
-    setlength(_quellens,length(_quellens)+1);
+    setLength(_quellens,length(_quellens)+1);
     _quellens[length(_quellens)-1]:=tDateienMitDaten.create;
     for i:=0 to tmpQs.count-1 do
       _quellens[length(_quellens)-1].add(tmpQs[i]);
@@ -560,9 +566,9 @@ begin
 
   tmpRE.free;
   tmpQs.free;
-  setlength(idx,0);
+  setLength(idx,0);
 
-  setlength(_zieles,length(_quellens));
+  setLength(_zieles,length(_quellens));
   for i:=0 to length(_zieles)-1 do begin
     _zieles[i]:=tDateienMitDaten.create;
     if findeMehrZiele(_zieles[i],_quellens[i]) then
@@ -585,7 +591,7 @@ begin
       es.last.ziele.add(ziele[i][j]);
     for j:=0 to befehleFkt.count-1 do begin
       s:=befehleFkt[j];
-      if quellersetzung(s,quellen[i],quellen[i].count) then
+      if quellErsetzung(s,quellen[i],quellen[i].count) then
         es.last.befehle.add(s);
     end;
     if es.last.befehle.count=0 then
@@ -603,7 +609,7 @@ begin
         s:=s+'/\s'+escape(quellen[i][j].name,'./','\')+'\$/d; ';
       for j:=0 to ziele[i].count-1 do
         s:=s+'/\s'+escape(ziele[i][j].name,'./','\')+'\$/d; ';
-      s:=s+'" -i "'+_pruefsummenDatei+'"';
+      s:=s+'" -i "'+_pruefSummenDatei+'"';
       es.last.befehle.add(s);
       s:='sha512sum';
       for j:=0 to quellen[i].count-1 do
@@ -614,7 +620,7 @@ begin
       neuSums.uniq('-');
       for j:=0 to neuSums.count-1 do
         s:=s+' "'+escape(neuSums[j],'"\','\')+'"';
-      s:=s+' >> '+_pruefsummenDatei;
+      s:=s+' >> '+_pruefSummenDatei;
       es.last.befehle.add(s);
     end;
   end;
@@ -628,7 +634,7 @@ begin
   inherited create;
   quellen:=tDateienMitDaten.create;
   ziele:=tDateienMitDaten.create;
-  befehle:=tStringlist.create;
+  befehle:=tStringList.create;
 end;
 
 destructor tExpliziteAbhaengigkeit.destroy;
@@ -714,7 +720,7 @@ begin
     machDatei:=pwd+'/';
     while (machDatei<>'/') and not fileexists(machDatei+'Machdatei') do begin
       delete(machDatei,length(machDatei),1);
-      machDatei:=extractfilepath(machDatei);
+      machDatei:=extractFilePath(machDatei);
     end;
     machDatei:=machDatei+'Machdatei';
   end;
@@ -724,14 +730,14 @@ begin
 
   // pruefSummenDatei teilweise prüfen und setzen
   if pruefSummenDatei='' then
-    pruefSummenDatei:=extractfilepath(_machDatei)+'.summen';
-  _pruefsummenDatei:=pruefSummenDatei;
+    pruefSummenDatei:=extractFilePath(_machDatei)+'.summen';
+  _pruefSummenDatei:=pruefSummenDatei;
 
   // finale Prüfung / finales Einlesen
   if not liesMachDatei then
     fehler('Datei '''+_machDatei+''' ist fehlerhaft!');
   if not liesPruefsummenfile then
-    fehler('Datei '''+_pruefsummenDatei+''' ist fehlerhaft!');
+    fehler('Datei '''+_pruefSummenDatei+''' ist fehlerhaft!');
 end;
 
 destructor tMach.destroy;
@@ -746,7 +752,7 @@ begin
   _dats.free;
   for i:=0 to length(_ign)-1 do
     _ign[i].free;
-  setlength(_ign,0);
+  setLength(_ign,0);
   inherited destroy;
 end;
 
@@ -798,7 +804,7 @@ begin
 
     if (wasWar=ztBefehl) and (wasIst<>ztBefehl) then begin
       _oriAbh.add(na);
-      na:=tGenerischeAbhaengigkeit.create(_dats,_machDatei,_pruefsummenDatei);
+      na:=tGenerischeAbhaengigkeit.create(_dats,_machDatei,_pruefSummenDatei);
     end;
 
     if s='%%DATEIENDE%%' then break;
@@ -807,7 +813,7 @@ begin
       ztSuche: begin
         allgemeineErsetzungen(s,_machDatei);
         if startetMit('!',s) then begin
-          setlength(_ign,length(_ign)+1);
+          setLength(_ign,length(_ign)+1);
           _ign[length(_ign)-1]:=tRegExpr.create;
           _ign[length(_ign)-1].expression:=s;
         end
@@ -824,8 +830,8 @@ begin
         end;
       end;
       ztBefehl: begin
-        while unescapedpos(';',s)>0 do begin
-          posi:=unescapedpos(';',s);
+        while unEscapedPos(';',s)>0 do begin
+          posi:=unEscapedPos(';',s);
           s:=trim(leftStr(s,posi-1))+' && '+trim(rightStr(s,length(s)-posi));
         end;
         while pos(';;',s)>0 do
@@ -840,7 +846,7 @@ begin
           na.zieleFkt.add(t);
         end;
       ztQuelle: begin
-        setlength(na.quellenREs,length(na.quellenREs)+1);
+        setLength(na.quellenREs,length(na.quellenREs)+1);
         na.quellenREs[length(na.quellenREs)-1]:=s;
       end;
     end{of case};
@@ -856,34 +862,34 @@ end;
 
 function tMach.liesPruefsummenfile: boolean;
 var
-  f:            textfile;
+  f:            textFile;
   i,j:          longint;
-  gutschlecht:  tMyStringlistBArray;
+  gutSchlecht:  tMyStringListBArray;
   gefunden,gut: boolean;
 begin
   result:=false;
-  if _pruefsummenDatei='' then begin
+  if _pruefSummenDatei='' then begin
     gibAus('Fehler: Leerer Name als Summendatei angegeben!',3);
     exit;
   end;
 
-  if not fileexists(_pruefsummenDatei) then begin
-    assignfile(f,_pruefsummenDatei);
+  if not fileexists(_pruefSummenDatei) then begin
+    assignFile(f,_pruefSummenDatei);
     rewrite(f);
-    closefile(f);
+    closeFile(f);
   end;
-  if not fileexists(_pruefsummenDatei) then begin
-    gibAus('Fehler: Ich bin nicht in der Lage, die bisher nicht existierende Datei '''+_pruefsummenDatei+''' anzulegen!',3);
+  if not fileexists(_pruefSummenDatei) then begin
+    gibAus('Fehler: Ich bin nicht in der Lage, die bisher nicht existierende Datei '''+_pruefSummenDatei+''' anzulegen!',3);
     exit;
   end;
 
-  gutschlecht:=testeSummen(_pruefsummenDatei);
+  gutSchlecht:=testeSummen(_pruefSummenDatei);
 
   for gut:=false to true do
-    for i:=0 to gutschlecht[gut].count-1 do begin
+    for i:=0 to gutSchlecht[gut].count-1 do begin
       gefunden:=false;
       for j:=0 to _dats.count-1 do
-        if _dats[j].name=gutschlecht[gut][i] then begin
+        if _dats[j].name=gutSchlecht[gut][i] then begin
           if gut then
             _dats[j].aktuell:=aAktuell
           else
@@ -894,51 +900,51 @@ begin
       if not gefunden then begin
         if not gut then begin // dateien mit ungültiger Prüfsumme können auch nicht vorhanden sein,
           _dats.add(tDateiMitDatum.create); // dann werden sie einfach eingefügt
-          _dats.last.name:=gutschlecht[gut][i];
+          _dats.last.name:=gutSchlecht[gut][i];
           _dats.last.aktuell:=aNichtVorhanden;
           continue;
         end;
-        gibAus('Fehler: In der Summendatei gibt es eine Datei mit gültiger Prüfsumme, die ich nicht finden kann: '''+gutschlecht[gut][i]+'''!',3);
+        gibAus('Fehler: In der Summendatei gibt es eine Datei mit gültiger Prüfsumme, die ich nicht finden kann: '''+gutSchlecht[gut][i]+'''!',3);
         for gefunden:=false to true do
-          gutschlecht[gefunden].free;
+          gutSchlecht[gefunden].free;
         exit;
       end;
     end;
 
   for gefunden:=false to true do
-    gutschlecht[gefunden].free;
+    gutSchlecht[gefunden].free;
   result:=true;
 end;
 
 function tMach.sammleDateien(wo: string; rekursiv: boolean): longint;
 var
-  sr:        tSearchRec;
+  sR:        tSearchRec;
   err,i:     longint;
   weglassen: boolean;
 begin
   result:=0;
-  err:=FindFirst(wo,fareadOnly or faHidden or faSysFile or (byte(rekursiv)*faDirectory),sr);
+  err:=findFirst(wo,fareadOnly or faHidden or faSysFile or (byte(rekursiv)*faDirectory),sR);
   while err=0 do begin
     weglassen:=false;
     for i:=0 to length(_ign)-1 do
-      weglassen:=weglassen or _ign[i].exec(extractfilepath(wo)+sr.name);
+      weglassen:=weglassen or _ign[i].exec(extractFilePath(wo)+sR.name);
     if not weglassen then begin
-      if sr.attr and faDirectory <> 0 then begin
+      if sR.attr and faDirectory <> 0 then begin
         if rekursiv and
-          (sr.name<>'.') and
-          (sr.name<>'..') then
-            result:=result+sammleDateien(extractfilepath(wo)+sr.name+'/*',rekursiv);
+          (sR.name<>'.') and
+          (sR.name<>'..') then
+            result:=result+sammleDateien(extractFilePath(wo)+sR.name+'/*',rekursiv);
       end
       else begin
         inc(result);
         _dats.add(tDateiMitDatum.create);
-        _dats.last.name:=extractfilepath(wo)+sr.name;
+        _dats.last.name:=extractFilePath(wo)+sR.name;
         _dats.last.aktuell:=aVeraltet;
       end;
     end;
-    err:=FindNext(sr);
+    err:=findNext(sR);
   end;
-  findClose(sr);
+  findClose(sR);
 end;
 
 procedure tMach.erzeugeRegeln;
@@ -965,7 +971,7 @@ var
   neues: boolean;
   zuTun: array of boolean;
 begin
-  setlength(zuTun,_mglAbh.count);
+  setLength(zuTun,_mglAbh.count);
   for i:=0 to length(zuTun)-1 do
     zuTun[i]:=false;
 
@@ -995,7 +1001,7 @@ begin
       _mglAbh[i].free;
       _mglAbh.delete(i);
     end;
-  setlength(zuTun,0);
+  setLength(zuTun,0);
 
   // anzuwendende Regeln sortieren
   _mglAbh.sort;
@@ -1004,25 +1010,25 @@ end;
 procedure tMach.tueWasZuTunIst(unsicher: boolean; ausgabeDatei: string);
 var
   i,j:                       longint;
-  ausg:                      textfile;
-  befehle,alleDateien:       tMyStringlist;
+  ausg:                      textFile;
+  befehle,alleDateien:       tMyStringList;
   lokTest:                   tRegExpr;
 begin
-  befehle:=tMyStringlist.create;
+  befehle:=tMyStringList.create;
   for i:=0 to _mglAbh.count-1 do
     for j:=0 to _mglAbh[i].befehle.count-1 do
       befehle.add(_mglAbh[i].befehle[j]);
   if not unsicher then begin
     lokTest:=tRegExpr.create;
     if (ausgabeDatei='') or
-      (extractfilepath(ausgabeDatei)=extractfilepath(_pruefsummenDatei)) then
-      lokTest.expression:=unterVerzeichnisRegex([_pruefsummenDatei])
+      (extractFilePath(ausgabeDatei)=extractFilePath(_pruefSummenDatei)) then
+      lokTest.expression:=unterVerzeichnisRegex([_pruefSummenDatei])
     else
-      lokTest.expression:=unterVerzeichnisRegex([ausgabeDatei,_pruefsummenDatei]);
+      lokTest.expression:=unterVerzeichnisRegex([ausgabeDatei,_pruefSummenDatei]);
     alleDateien:=_dats.toMyStringList;
     alleDateien.grep('^\.uralt\.$',true);
     for i:=0 to befehle.count-1 do
-      testeObBefehlLokal(befehle[i],extractfiledir(ausgabeDatei),alleDateien,lokTest);
+      testeObBefehlLokal(befehle[i],extractFileDir(ausgabeDatei),alleDateien,lokTest);
     alleDateien.free;
     lokTest.free;
   end;
@@ -1072,7 +1078,7 @@ var
   i:              longint;
   s,anfang,mitte: string;
 begin
-  s:=extractfilepath(machDatei);
+  s:=extractFilePath(machDatei);
   if rightStr(s,1)='/' then
     delete(s,length(s),1);
   ersetzeAlleVorkommen(worin,'%DIRNAME%',s);
diff --git a/tools.pas b/tools.pas
index 63d88cb..7a62703 100644
--- a/tools.pas
+++ b/tools.pas
@@ -9,10 +9,10 @@ uses
 
 type
   tAktualitaet = (aNichtVorhanden,aVeraltet,aAktuell,aWirdErneuert);
-  tMyStringlistBArray = array[boolean] of tMyStringlist;
+  tMyStringListBArray = array[boolean] of tMyStringList;
   tSummenDatei = record
     name:   string;
-    inhalt: tMyStringlistBArray;
+    inhalt: tMyStringListBArray;
   end;
   tDateiMitDatum = class
     name:    ansiString;
@@ -38,7 +38,7 @@ function min(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
 function max(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
 function anzCs(c: char; s: string): longint;
 function notQuotedPos(was,worin: string): longint;
-function unescapedpos(was,worin: string): longint;
+function unEscapedPos(was,worin: string): longint;
 procedure testeObBefehlLokal(bef, ordner: string; dateiListe: tMyStringList; lokTest: tRegExpr);
 function extrahiereAlleDateien(woraus: string; dateiListe: tMyStringList): tMyStringList;
 function unescape(s: string): string;
@@ -47,7 +47,7 @@ procedure ersetzeAlleVorkommen(var worin: string; was,wodurch: string);
 
 // Routinen für sha512-Prüfsummen
 
-function testeSummen(sumNam: string): tMyStringlistBArray;
+function testeSummen(sumNam: string): tMyStringListBArray;
 function dateienMitGueltigerSumme(sumNam: string): tMyStringList;
 
 implementation
@@ -175,7 +175,7 @@ begin
   until false;
 end;
 
-function unescapedpos(was,worin: string): longint;
+function unEscapedPos(was,worin: string): longint;
 var
   ebene: longint;
 begin
@@ -200,7 +200,7 @@ end;
 procedure testeObBefehlLokal(bef, ordner: string; dateiListe: tMyStringList; lokTest: tRegExpr);
 var
   exe,args,regex,oBef,s: string;
-  dateien,sl,relZeil:    tMyStringlist;
+  dateien,sl,relZeil:    tMyStringList;
   i,matchNum:            longint;
   re:                    tRegExpr;
 begin
@@ -219,7 +219,7 @@ begin
 
   args:='';
   repeat
-    exe:=leftstr(bef,notQuotedPos(' ',bef)-1);
+    exe:=leftStr(bef,notQuotedPos(' ',bef)-1);
     delete(bef,1,length(exe));
     if exe='cat' then begin
       args:=args+' '+trim(leftStr(bef,notQuotedPos('|',bef)-1));
@@ -284,7 +284,7 @@ begin
   if dateien.count = 0 then
     gibAus('Warnung: Hier ist ein Befehl ohne offensichtliche Input-Dateien! ('''+oBef+''')!',3);
 
-  relZeil:=tMyStringlist.create;
+  relZeil:=tMyStringList.create;
   if regex='' then begin
     // dateien sind bereits die zu betrachtenden Dateien
     for i:=0 to dateien.count-1 do begin
@@ -293,7 +293,7 @@ begin
     end;
   end
   else begin
-    sl:=tMyStringlist.create;
+    sl:=tMyStringList.create;
     for i:=0 to dateien.count-1 do begin
       sl.loadFromFile(dateien[i]);
       if exe='epost' then begin
@@ -330,7 +330,7 @@ function extrahiereAlleDateien(woraus: string; dateiListe: tMyStringList): tMySt
 var
   s: string;
 begin
-  result:=tMyStringlist.create;
+  result:=tMyStringList.create;
   woraus:=woraus+' ';
   while notQuotedPos(' ',woraus)>0 do begin
     s:=leftStr(woraus,notQuotedPos(' ',woraus));
@@ -376,22 +376,22 @@ end;
 // Routinen für sha512-Prüfsummen
 
 var
-  summenvorrat: array of tSummenDatei;
+  summenVorrat: array of tSummenDatei;
 
-function testeSummen(sumNam: string): tMyStringlistBArray;
+function testeSummen(sumNam: string): tMyStringListBArray;
 var
   p:    tProcess;
   rb,i: longint;
   s:    string;
-  erg:  tStringlist;
+  erg:  tStringList;
   gut:  boolean;
 const leseHappen=65536;
 begin
-  for i:=0 to length(summenvorrat)-1 do
-    if summenvorrat[i].name=sumNam then begin
+  for i:=0 to length(summenVorrat)-1 do
+    if summenVorrat[i].name=sumNam then begin
       for gut:=false to true do begin
-        result[gut]:=tMyStringlist.create;
-        result[gut].text:=summenvorrat[i].inhalt[gut].text;
+        result[gut]:=tMyStringList.create;
+        result[gut].text:=summenVorrat[i].inhalt[gut].text;
       end;
       exit;
     end;
@@ -407,38 +407,38 @@ begin
   while p.running do begin
     if p.output.numBytesAvailable=0 then sleep(10)
     else begin
-      setlength(s,rb+leseHappen);
+      setLength(s,rb+leseHappen);
       rb:=rb+p.output.read(s[rb+1],leseHappen);
     end;
   end;
   if p.output.numBytesAvailable>0 then begin
-    setlength(s,rb+leseHappen);
+    setLength(s,rb+leseHappen);
     rb:=rb+p.output.read(s[rb+1],leseHappen);
   end;
   p.free;
-  setlength(s,rb);
-  erg:=tStringlist.create;
+  setLength(s,rb);
+  erg:=tStringList.create;
   erg.text:=s;
   s:='';
   for gut:=false to true do begin
-    result[gut]:=tMyStringlist.create;
+    result[gut]:=tMyStringList.create;
     rb:=0;
     for i:=0 to erg.count-1 do
       if not gut xor (rightStr(erg[i],4)=': OK') then begin
         s:=leftStr(erg[i],pos(':',erg[i])-1);
         if leftStr(s,1)<>'/' then
-          s:=extractfilepath(sumNam)+s;
+          s:=extractFilePath(sumNam)+s;
         result[gut].add(s);
         inc(rb);
       end;
   end;
   erg.free;
 
-  setlength(summenvorrat,length(summenvorrat)+1);
-  with summenvorrat[length(summenvorrat)-1] do begin
+  setLength(summenVorrat,length(summenVorrat)+1);
+  with summenVorrat[length(summenVorrat)-1] do begin
     name:=sumNam;
     for gut:=false to true do begin
-      inhalt[gut]:=tMyStringlist.create;
+      inhalt[gut]:=tMyStringList.create;
       inhalt[gut].text:=result[gut].text;
     end;
   end;
@@ -446,7 +446,7 @@ end;
 
 function dateienMitGueltigerSumme(sumNam: string): tMyStringList;
 var
-  sums: tMyStringlistBArray;
+  sums: tMyStringListBArray;
 begin
   sums:=testeSummen(sumNam);
   result:=sums[true];
@@ -457,15 +457,15 @@ var
   i: longint;
 
 initialization
-  setlength(summenvorrat,0);
+  setLength(summenVorrat,0);
 
 finalization
-  for i:=0 to length(summenvorrat)-1 do
-    with summenvorrat[i] do begin
+  for i:=0 to length(summenVorrat)-1 do
+    with summenVorrat[i] do begin
       name:='';
       inhalt[false].free;
       inhalt[true].free;
     end;
-  setlength(summenvorrat,0);
+  setLength(summenVorrat,0);
 end.