Przeglądaj źródła

* Added some explanatory comments about the use of this include file

git-svn-id: trunk@34925 -
michael 8 lat temu
rodzic
commit
47a59f269a
1 zmienionych plików z 22 dodań i 0 usunięć
  1. 22 0
      rtl/objpas/sysutils/sysformt.inc

+ 22 - 0
rtl/objpas/sysutils/sysformt.inc

@@ -14,6 +14,28 @@
     System Utilities For Free Pascal
 }
 
+{
+
+This include file is used in 3 different places for the following functions:
+
+  Function Format (Const Fmt : AnsiString; const Args : Array of const; const FormatSettings: TFormatSettings) : AnsiString;
+  Function UnicodeFormat (Const Fmt : UnicodeString; const Args : Array of const; Const FormatSettings: TFormatSettings) : UnicodeString;
+  Function WideFormat (Const Fmt : WideString; const Args : Array of const; Const FormatSettings: TFormatSettings) : WideString;
+
+The header is different, but the function remains the same.
+It uses the following defines:
+
+  INWIDESTRING
+  INUNICODESTRING
+ (INANSISTRING is implicit)
+
+and relies on 2 macros:
+
+  TFormatString : one of unicodestring, widestring,ansistring
+  TFormatChar : one of unicodechar, widechar or ansichar
+
+}
+
 Var ChPos,OldPos,ArgPos,DoArg,Len : SizeInt;
     Hs,ToAdd : TFormatString;
     Index : SizeInt;