From 0b6ab870592194e67dff5cba013d9d32acdf2d48 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 1 Dec 2009 22:37:25 +0100 Subject: A better way to escape format string --- libgtk_kylix/GTKUtils.pas | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'libgtk_kylix/GTKUtils.pas') diff --git a/libgtk_kylix/GTKUtils.pas b/libgtk_kylix/GTKUtils.pas index 288aee3..acc30ca 100644 --- a/libgtk_kylix/GTKUtils.pas +++ b/libgtk_kylix/GTKUtils.pas @@ -45,7 +45,6 @@ function GDKColorToPGdkColor(Color: TGDKColor): PGdkColor; function PGdkColorToGDKColor(Color: PGdkColor): TGDKColor; function GDKColorToString(Color: TGDKColor): string; function StringToGDKColor(Str: string; var Color: TGDKColor): boolean; -function EscapeFormatStr(const Str: string): string; (********************************************************************************************************************************) implementation @@ -207,22 +206,6 @@ begin except end; end; -(********************************************************************************************************************************) -function EscapeFormatStr(const Str: string): string; -var i: integer; - src: string; -begin - src := Str; - Result := ''; - repeat - i := Pos('%', src); - if i > 0 then begin - Result := Result + Copy(src, 1, i - 1) + '%%'; - src := Copy(src, i + 1, MaxInt); - end else Result := Result + src; - until i <= 0; -end; - (********************************************************************************************************************************) end. -- cgit v1.2.3