1 files changed, 0 insertions, 38 deletions
diff --git a/tools.pas b/tools.pas
index 032e3a7..599fc1c 100644
--- a/tools.pas
+++ b/tools.pas
@@ -9,7 +9,6 @@ uses
 
 type
   tAktualitaet = (aNichtVorhanden,aVeraltet,aAktuell,aWirdErneuert);
-  tRegexTyp = (rtKein,rtFpc,rtShell);
   tMyStringListBArray = array[boolean] of tMyStringList;
   tSummenDatei = record
     name:   string;
@@ -66,9 +65,6 @@ function notQuotedPos(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;
-function escape(s,toe,es: string): string;
-function escapeStringToRegex(s: string; typ: tRegexTyp; extras: string = ''): string; inline;
 procedure ersetzeAlleVorkommen(var worin: string; was,wodurch: string);
 function unterVerzeichnisRegex(dateien: array of const): string;
 function vergleicheNamenVonDateienMitDaten(item1,item2: pointer): integer;
@@ -592,40 +588,6 @@ begin
   end;
 end;
 
-function unescape(s: string): string;
-begin
-  result:=s;
-  while pos('\,',result)>0 do
-    delete(result,pos('\,',result),1);
-end;
-
-function escape(s,toe,es: string): string;
-var
-  i,j: longint;
-  b:   boolean;
-begin
-  result:='';
-  for i:=1 to length(s) do begin
-    b:=false;
-    for j:=1 to length(toe) do
-      b:=b or (toe[j]=s[i]);
-    if b then result:=result+es;
-    result:=result+s[i];
-  end;
-end;
-
-function escapeStringToRegex(s: string; typ: tRegexTyp; extras: string = ''): string;
-begin
-  case typ of
-    rtKein:
-      result:=s;
-    rtFpc:
-      result:=escape(s,'\.[+^$'+extras,'\');
-    rtShell:
-      result:=escape(s,'\.[^$'+extras,'\');
-  end{of case};
-end;
-
 procedure ersetzeAlleVorkommen(var worin: string; was,wodurch: string);
 begin
   while pos(was,worin)>0 do begin