Сохраняем и загружаем TFont и INI файлах . Delphi , Графика и Игры , Шрифты

Код, представленный ниже, содержит два процедура - SaveFont и LoadFont, которые могут использоваться для сохранения и загрузки настроек шрифта между объектом TFont и файлом INI. Процедуры используют класс TIniFile из модуля Inifiles для чтения и записи данных в/из файл INI.

Код также включает пример использования этих процедур, демонстрирующий, как сохранять и загружать настройки шрифта для компонента TLabel с именем label1.

uses
  Inifiles;

// Процедура для сохранения настроек шрифта в файле INI
procedure SaveFont(FName: string; Section: string; smFont: TFont);
var
  FStream: TIniFile;
begin
   // Создать новый файл INI или перезаписать существующий
  FStream  := TIniFile.Create(FName);

  try
     // Записать настройки шрифта в указанной секции файла INI
    FStream.WriteString(Section, 'Name', smFont.Name);
    FStream.WriteInteger(Section, 'CharSet', smFont.CharSet);
    FStream.WriteInteger(Section, 'Color', smFont.Color);
    FStream.WriteInteger(Section, 'Size', smFont.Size);
    FStream.WriteInteger(Section, 'Style', Byte(smFont.Style));
  finally
     // Всегда освобождать файл INI, когда вы закончите с ним
    FStream.Free;
  end;
end;

// Процедура для загрузки настроек шрифта из файла INI
procedure LoadFont(FName: string; Section: string; smFont: TFont);
var
  FStream: TIniFile;
begin
   // Создать новый файл INI или перезаписать существующий
  FStream  := TIniFile.Create(FName);

  try
     // Читать настройки шрифта из указанной секции файла INI
    smFont.Name      := FStream.ReadString(Section, 'Name', smFont.Name);
    smFont.CharSet   := TFontCharSet(FStream.ReadInteger(Section, 'CharSet', smFont.CharSet));
    smFont.Color     := TColor(FStream.ReadInteger(Section, 'Color', smFont.Color));
    smFont.Size      := FStream.ReadInteger(Section, 'Size', smFont.Size);
    smFont.Style     := TFontStyles(Byte(FStream.ReadInteger(Section, 'Style', Byte(smFont.Style))));
  finally
     // Всегда освобождать файл INI, когда вы закончите с ним
    FStream.Free;
  end;
end;

// Пример использования:
// Сохранить настройки шрифта в файле INI
procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveFont('font.ini', 'label', label1.Font);
end;

// Загрузить настройки шрифта из файла INI
procedure TForm1.Button2Click(Sender: TObject);
begin
  LoadFont('font.ini', 'label', label1.Font);
end;

В статье описывается сохранение и загрузка параметров шрифта TFont в файле INI с помощью процедур SaveFont и LoadFont, а также пример их использования в приложении на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS