Сохранение цвета и ширфта

[Копоть Артём]

Здравствуйте! Подскажите пожалуйста с сохранением цвета и шрифта во внешнем файле (его как-то надо преобразовывать в String?)!

[Arkuz]

Как решение ini - файл.

[Gorychev]

ColorToString - записываем
StringToColor - считываем

[VVM]

Что-то вроде этого:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    //например сохраним и загрузим в/из файла шрифт и цвет Memo1.
    procedure Save; //сохранить
    procedure Load; //загрузить
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Load;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'FontAndColor.ini');
  try
    Ini.WriteString('Font', 'Name', Memo1.Font.Name);
    Ini.WriteInteger('Font', 'Size', Memo1.Font.Size);
    Ini.WriteString('Font', 'Color', ColorToString(Memo1.Font.Color));
    Ini.WriteString('Memo1', 'Color', ColorToString(Memo1.Color));    
  finally
    Ini.Free;
  end;  
end;

procedure TForm1.Save;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'FontAndColor.ini');
  try
    Memo1.Font.Name := Ini.ReadString('Font', 'Name', 'Tahoma');
    Memo1.Font.Size := Ini.ReadInteger('Font', 'Size', 10);
    Memo1.Font.Color := StringToColor(Ini.ReadString('Font', 'Color', IntToStr(clWhite)));
    Memo1.Color := StringToColor(Ini.ReadString('Memo1', 'Color', IntToStr(clWhite)));    
  finally
    Ini.Free;
  end;
end;

end.