Jak zapisać czcionke do INI

Mam problem, jak zapisać czionke do ini???

Jeśli chodzi Ci tylko o nazwę czcionki to :

[code]
try
INI:=TINIFile.create(ścieżka do pliku INI);
INI.writeString(sekcja,wartość,nazwa_czcionki);
finally
INI.free;
end;
[/code]

Najlepiej tak:
INI := TINIFile.Create(plik);
INI.WriteString('sekcja', 'czcionka-typ', x.Font.Name);
INI.WriteInteger('sekcja', 'czcionka-rozmiar', x.Font.size);

if (x.Font.style = [fsBold]) and not (x.Font.style = [fsItalic]) then
  INI.WriteBool('sekcja', 'czcionka-bold', True) 
else 
  INI.WriteBool('sekcja', 'czcionka-bold', False);
if (x.Font.style = [fsItalic]) and not (x.Font.style = [fsBold]) then
  INI.WriteBool('sekcja', 'czcionka-italic', True) 
else 
  INI.WriteBool('sekcja', 'czcionka-italic', False);
if (x.Font.style = [fsBold] + [fsItalic]) then
  INI.WriteBool('sekcja', 'czcionka-bolditalic', True) 
else 
  INI.WriteBool('sekcja', 'czcionka-bolditalic', False);
INI.Free;

Gdzie x to dowolny komponent z czcionką.

//uzywaj tagow delphi

if (x.Font.style = [fsBold]) and not (x.Font.style = [fsItalic]) then
INI.WriteBool('sekcja', 'czcionka-bold', True)
else
INI.WriteBool('sekcja', 'czcionka-bold', False);

Detox, naprwdę nie rozumiem dlaczego tak kręcisz z tymi and not. Przykład :

if fsBold in x.Font.style then .........

i teraz jako że [b]fsBold in x.Font.style[/b] zwraca nam typ boolowski możemy nasz problem zapisać tak :

INI.WriteBool('sekcja', 'czcionka-bold', fsBold in x.Font.style );