Как сохранить TfontStyle

[Маркъ]

Задача состоит в том, что сохранить высе параметры шрифта в ini фале,
со всеми элементами понятно, но вот как сохранить стиль шрифта (подчёркнутый, курсив и т.д.).

[zetrix]

Сообщение от Маркъ

Задача состоит в том, что сохранить высе параметры шрифта в ini фале,
со всеми элементами понятно, но вот как сохранить стиль шрифта (подчёркнутый, курсив и т.д.).

Когда-то уже писал:

//сохранение параметров текста в EDIT

var
  Form1: TForm1; s: array [1..5] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
S[1]:=Edit1.Font.Name;
S[2]:=ColorToString(Edit1.font.Color);
S[3]:=inttostr(Edit1.font.Size);
if fsBold in Edit1.font.Style then S[4]:='fsBold ';
if fsItalic in Edit1.font.Style then S[4]:=S[4]+'fsItalic ';
if fsUnderline in Edit1.font.Style then S[4]:=S[4]+'fsUnderline ';
if fsStrikeOut in Edit1.font.Style then S[4]:=S[4]+'fsStrikeOut';
S[5]:=inttostr(Edit1.font.Charset);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Font.Name:=S[1];
Edit2.font.Color:=StringToColor(S[2]);
Edit2.font.Size:=StrToInt(S[3]);
if pos('fsBold',s[4])<>0 then Edit2.font.Style:=Edit2.font.Style+[fsBold];
if pos('fsItalic',s[4])<>0 then Edit2.font.Style:=Edit2.font.Style+[fsItalic];
if pos('fsUnderline',s[4])<>0 then Edit2.font.Style:=Edit2.font.Style+[fsUnderline];
if pos('fsStrikeOut',s[4])<>0 then Edit2.font.Style:=Edit2.font.Style+[fsStrikeOut];
Edit2.font.Charset:=StrToInt(S[5]);
end;

[Маркъ]

Огромное всем спасибо, помогло.