如何把自定义的字体信息写到配置文件中？(50分)

用户自定义字体后，下次启动使用配置文件中的字体信息。

早早吧

可以将字体信息转换为字符串来存储
FontTOString()
StringToFont()

所用的两个函数:
unit xFonts;

interface

uses Classes, Graphics, SysUtils;

procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True);
function FontToString(Font: TFont; bIncludeColor: Boolean = True): string;

implementation

const
csfsBold = '|Bold';
csfsItalic = '|Italic';
csfsUnderline = '|Underline';
csfsStrikeout = '|Strikeout';

//
// Expected format:
// "Arial", 9, [Bold], [clRed]
//
procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True);
var
P : Integer;
sStyle: string;
begin
with Font do
try
// get font name
P := Pos(',', sFont);
name := Copy(sFont, 2, P - 3);
Delete(sFont, 1, P);

// get font size
P := Pos(',', sFont);
Size := StrToInt(Copy(sFont, 2, P - 2));
Delete(sFont, 1, P);

// get font style
P := Pos(',', sFont);
sStyle := '|' + Copy(sFont, 3, P - 4);
Delete(sFont, 1, P);

// get font color
if bIncludeColor then
Color := StringToColor(Copy(sFont, 3, Length(sFont) - 3));

// convert str font style to
// font style
Style := [];

if (Pos(csfsBold, sStyle) > 0) then
Style := Style + [fsBold];

if (Pos(csfsItalic, sStyle) > 0) then
Style := Style + [fsItalic];

if (Pos(csfsUnderline, sStyle) > 0) then
Style := Style + [fsUnderline];

if (Pos(csfsStrikeout, sStyle) > 0) then
Style := Style + [fsStrikeOut];
except
end;
end;

//
// Output format:
// "Aril", 9, [Bold|Italic], [clAqua]
//
function FontToString(Font: TFont; bIncludeColor: Boolean = True): string;
var
sStyle: string;
begin
with Font do
begin
// convert font style to string
sStyle := '';

if (fsBold in Style) then
sStyle := sStyle + csfsBold;

if (fsItalic in Style) then
sStyle := sStyle + csfsItalic;

if (fsUnderline in Style) then
sStyle := sStyle + csfsUnderline;

if (fsStrikeOut in Style) then
sStyle := sStyle + csfsStrikeout;

if ((Length(sStyle) > 0) and ('|' = sStyle[1])) then
sStyle := Copy(sStyle, 2, Length(sStyle) - 1);

Result := Format('"%s", %d, [%s]',[name, Size, sStyle]);
if bIncludeColor then
Result := Result + Format(', [%s]',[ColorToString(Color)]);
end;
end;

end.

原来分配分数在这里，呵呵，谢谢wagxu。