Уроки по Delphi


         

в форму Form1 помещаем компоненты


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

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

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

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

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

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

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

Создаем новый проект, в форму Form1 помещаем компоненты Edit, ComboBox, два компонента CheckBox, две кнопки BitBtn.
Для компонента 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; // объявление переменной, через которую будут обрабатываться данные

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