Уроки по Delphi



         

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


WriteString - запись строковой переменной

WriteBool - запись логической переменной

WriteDate - запись даты

WriteTime - запись времени

WriteDateTime - запись даты и времени в одном параметре

WriteFloat - запись числа с плавающей точкой

Рассмотрим пример.

Создаем новый проект, в форму Form1 помещаем компоненты Edit, ComboBox, два компонента CheckBox, две кнопки BitBtn.

1.gif (2543 bytes)
Для компонента ComboBox1 изменяем свойство Style в csDropDownList и редактируем свойство Items, занося туда несколько произвольных строк. Дальше для BitBtn1 свойство Caption изменяем на Сохранить, а для кнопки BitBtn2 - Восстановить. Окно принимает вид, показанный на рисунке.

В процедуре события  FormCreate для окна Form1 пишем команду

ReadParams;

В процедуре события FormClose для окна Form1 пишем команду

WriteParams;

В процедуре нажатия на кнопку "Сохранить" аналогично закрытию окна команда WriteParams, для кнопки "Восстановить" - ReadParams.

Дальше привожу текст модуля Unit1 обратите внимание на выделенные строки. Их следует прописать вручную.

// ----------------Начало модуля Unit1------------------

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, inifiles; // подключение модуля, позволяющего работать с ini файлами

type

TForm1 = class(TForm)

Edit1: TEdit;

ComboBox1: TComboBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure ReadParams; // процедура чтения параметров

procedure WriteParams; // процедура записи параметров

procedure FormCreate(Sender: TObject);

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

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ReadParams;

Var IniFile:TIniFile; // объявление переменной, через которую будут обрабатываться данные




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