A better way to escape format string

1 files changed, 0 insertions, 17 deletions

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
@@ -208,21 +207,5 @@ begin
 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.