Уроки по Delphi



         

Урок16. Ini файлы - часть 4


begin

IniFile:=TIniFile.Create('project.ini'); // создаем переменную

Form1.Top:=IniFile.ReadInteger('FORM1','Form1Top',Form1.Top); // верхнее положение окна

Form1.Left:=IniFile.ReadInteger('FORM1','Form1Left',Form1.Left); // левое положение окна

Form1.Height:=IniFile.ReadInteger('FORM1','Form1Height',Form1.Height); // высота

Form1.Width:=IniFile.ReadInteger('FORM1','Form1Width',Form1.Width); // ширина

Edit1.Text:=IniFile.ReadString('FORM1','Edit1Text',Edit1.Text); // текст в Edit1

ComboBox1.ItemIndex:=IniFile.ReadInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex); // выбранный пункт

CheckBox1.Checked:=IniFile.ReadBool('FORM1','CheckBox1Checked',CheckBox1.Checked); // состояние CheckBox1

CheckBox2.Checked:=IniFile.ReadBool('FORM1','CheckBox2Checked',CheckBox2.Checked); // состояние CheckBox2

IniFile.Free; // если сами создаем, то сами уничтожаем.

end;

procedure TForm1.WriteParams;

Var IniFile:TIniFile;

begin

IniFile:=TIniFile.Create('project.ini');

IniFile.WriteInteger('FORM1','Form1Top',Form1.Top);

IniFile.WriteInteger('FORM1','Form1Left',Form1.Left);

IniFile.WriteInteger('FORM1','Form1Height',Form1.Height);

IniFile.WriteInteger('FORM1','Form1Width',Form1.Width);

IniFile.WriteString('FORM1','Edit1Text',Edit1.Text);

IniFile.WriteInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex);

IniFile.WriteBool('FORM1','CheckBox1Checked',CheckBox1.Checked);

IniFile.WriteBool('FORM1','CheckBox2Checked',CheckBox2.Checked);

IniFile.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ReadParams;

end;

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

begin

WriteParams;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

WriteParams;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

ReadParams;

end;

end.

// ----------------Конец модуля Unit1------------------

Вышерассмотренный пример можно забрать по этой ссылке (2 Кб).

Запустите программу несколько раз и проследите за восстановлением внешнего вида программы. Попробуйте сохранять и восстанавливать параметры с помощью кнопок.




Содержание  Назад  Вперед