Code cleanup

1 files changed, 0 insertions, 13 deletions

diff --git a/UCoreUtils.pas b/UCoreUtils.pas
index b18c2f2..b095db1 100644
--- a/UCoreUtils.pas
+++ b/UCoreUtils.pas
@@ -80,7 +80,6 @@ procedure TrimCRLFESC(var s: string);
 procedure TrimQuotes(var s: string);
 function QuoteStr(const Str: string): string;
 function QuoteMarkupStr(const Str: string; MarkupUnderscore: boolean = False): string;
-function QuotePercentStr(const Str: string): string;
 function RemoveQuotation(const Str: string): string;
 function GetStrSize(s: string): Int64;
 procedure DebugMsg(Params: array of const);
@@ -893,18 +892,6 @@ begin
 end;
 
 (********************************************************************************************************************************)
-function QuotePercentStr(const Str: string): string;
-var i: integer;
-begin
-  Result := '';
-  if Length(Str) > 0 then
-    for i := 1 to Length(Str) do begin
-      if Str[i] = '%' then Result := Result + '%';
-      Result := Result + Str[i];
-    end;
-end;
-
-(********************************************************************************************************************************)
 function QuoteMarkupStr(const Str: string; MarkupUnderscore: boolean = False): string;
 var i: integer;
 begin