diff options
-rw-r--r-- | tools.pas | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |