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 ------------- UMain.pas | 2 +- 2 files changed, 1 insertion(+), 14 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); @@ -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; diff --git a/UMain.pas b/UMain.pas index 130223d..42a19a3 100644 --- a/UMain.pas +++ b/UMain.pas @@ -2483,7 +2483,7 @@ begin else s := Format(LANGFileS, [string(Data^.FDisplayName)]); smsg := Format(LANGDoYouReallyWantToDeleteTheS, [s]); end; - if Application.MessageBox(QuotePercentStr(smsg), [mbYes, mbNo], mbQuestion, mbNone, mbNo) <> mbYes then Exit; + if Application.MessageBox(EscapeFormatStr(smsg), [mbYes, mbNo], mbQuestion, mbNone, mbNo) <> mbYes then Exit; FindNextSelected(ListView, DataList, NextItem1, NextItem2); AWorkingThread := TWorkerThread.Create; -- cgit v1.2.3