1 files changed, 31 insertions, 31 deletions

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.