[Как сохранить и прочитать TFont в реестр].

[ZARO]

Собственно мне нужно сохранить Memo1.Font в реестр по завершению программы, а по загрузки программы - загрузить значения и установить Font в memo. Я не зенаю как записать Font, помогите пожалуйста.

[Lemon2009]

можно по отдельности разные значения шрифта сохранить.

font.color
font.name
и т.д.

[ZARO]

Можно и так,но хотелось бы как в мейл агенте, там он в 1 бинарном файле хранится...

[Marsel737]

procedure ConfigLoad;
const
  Section = 'Config';
var
  Ini: TIniFile;
begin
  try
    Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + Res\Config.ini');
    with Ini do
    begin
      Memo1.Font.Name := ReadString(Section, 'MemoColor', Memo1.Font.Name);
      Memo1.Font.Color := ...
      Memo1.Font.Size := ReadInteger(...);
    end;
  finally
    Ini.Free;
  end;
end;

Сохранять аналогично, только

Ini.WriteString(...);

И всё будет в одном ини файле, вроде до 256 строк можно записать, т.е 256 свойств, хватит для хранения настроек любого даже очень большого проекта.