Avoid double-formatting strings containing percent sign

1 files changed, 17 insertions, 0 deletions

diff --git a/libgtk_kylix/GTKUtils.pas b/libgtk_kylix/GTKUtils.pas
index 787b133..3f92168 100644
--- a/libgtk_kylix/GTKUtils.pas
+++ b/libgtk_kylix/GTKUtils.pas
@@ -45,6 +45,7 @@ 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,5 +208,21 @@ 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.