Delphi

Вопрос

Как в Delphi сделать так, чтобы некоторые параметры объекта записать в INI файл а потом их считывать, изменять и дополнять в процессе работы программы?

Ответ

Сначала нужно привести все необходимые для сохранения параметры объекта к типу, который можно записывать в INI-файл (например, строки, целые числа, булевы), а затем записать как обычно. Например, мы хотим запомнить, где последний раз была видна кнопка и что на ней было написано. Пишем так в FormClose:

uses …, IniFiles,…

…

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

ini: TIniFile;

begin

ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'options.ini');

ini.WriteString('main', 'caption', button1.caption);

ini.WriteInteger('main', 'fromleft', button1.left);

ini.WriteBoolean('main', 'isvisible', button1.visible);

ini.Free; //Не забываем освободить!

end;

А при FormShow:

procedure TForm1.FormShow(Sender: TObject);

var

ini: TIniFile;

begin

ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'options.ini');

button1.caption:=ini.ReadString('main', 'caption', '<empty>');

button1.left:=ini.readinteger('main', 'fromleft', 0);

button1.visible:=ini.ReadBoolean('main', 'isvisible', true);

ini.Free;

end;

Таким образом, изменяя параметры в options.ini мы можем влиять на внешний вид нашей кнопки. Аналогично все делается и с другими объектами.

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