tools.pas: escape kann jetzt auch mit string escapen

1 files changed, 3 insertions, 3 deletions

diff --git a/tools.pas b/tools.pas
index 8797441..2efcb5e 100644
--- a/tools.pas
+++ b/tools.pas
@@ -45,7 +45,7 @@ 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: string; ec: char): 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);
 
@@ -376,7 +376,7 @@ begin
     delete(result,pos('\,',result),1);
 end;
 
-function escape(s,toe: string; ec: char): string;
+function escape(s,toe,es: string): string;
 var
   i,j: longint;
   b:   boolean;
@@ -386,7 +386,7 @@ begin
     b:=false;
     for j:=1 to length(toe) do
       b:=b or (toe[j]=s[i]);
-    if b then result:=result+ec;
+    if b then result:=result+es;
     result:=result+s[i];
   end;
 end;