xfonts.txt

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

unit xFonts;


//将TFont字节对象转换为字符串。便于将选用的字体信息写入注册表或INI文件。
//格式: "Arial", 9, [Bold], [clRed]
procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True);

//将TFont字节对象转换为字符串。便于将选用的字体信息写入注册表或INI文件。
//格式:"Aril", 9, [Bold|Italic], [clAqua]
function FontToString(Font: TFont; bIncludeColor: Boolean = True): string;