Сообщество Чайников

Вопрос

Как сохранить в ini файле настройки TFont?

Ответ

uses
    IniFiles;

procedure TForm1.Button1Click(Sender: TObject);
var
    IniFile : TIniFile;
begin
    IniFile := TIniFile.Create('myIni.ini');
    with Edit1.Font do with IniFile do begin
Name := ReadString ('Font','Name','MS Mans Serif');
Charset := ReadInteger('Font','Charset',RUSSIAN_CHARSET);
Color := ReadInteger('Font','Color', clWindowText);
Height := ReadInteger('Font','Height',-11);
Size := ReadInteger('Font','Size',8);
Style := TFontStyles(Byte(ReadInteger('Font','Style',0)));
    end;
    IniFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    IniFile : TIniFile;
begin
    IniFile := TIniFile.Create('myIni.ini');
    with Edit1.Font do with IniFile do begin;
WriteString ('Font','Name', Name);
WriteInteger('Font','Charset', Charset);
WriteInteger('Font','Color', Color);
WriteInteger('Font','Height', Height);
WriteInteger('Font','Size', Size);
WriteInteger('Font','Style',Byte(Style));
    end;
    IniFile.Free;
end;

Из конференции Delphi