From 86431176b9e030b8296718feb2f5d837c4f83b63 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 17 Nov 2009 11:01:55 +0100 Subject: Code cleanup --- UCoreUtils.pas | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'UCoreUtils.pas') 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); @@ -892,18 +891,6 @@ begin end; 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; -- cgit v1.2.3