Uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,

Private

{ Private declarations }

Public

{ Public declarations }

end;

var Form1: TForm1;

Implementation

var Sum:real;

   operation:char='@';

{$R *.DFM}

procedure operate;

var …  

Begin

. . .

end;

procedure TForm1.Button1Click(Sender: TObject);

Begin

. . . .

end;

procedure TForm1.Button2Click(Sender: TObject);

var s:string;

Begin

. . .

end;

procedure TForm1.Button3Click(Sender: TObject);

Begin

 . . .

end;

procedure TForm1.Button4Click(Sender: TObject);

Begin

 . . .

end;

procedure TForm1.Button5Click(Sender: TObject);

Begin

 . . .

end;

procedure TForm1.Button6Click(Sender: TObject);

Begin

. . .

end;

procedure TForm1.Button7Click(Sender: TObject);

Begin

. . .

end;

End.

Кроме этого, были созданы файлы ресурсов, с которыми Turbo Delphiработает самостоятельно.

Задание 2.Разработать приложение «Записная книжка».

Примерный вид форм представлен на рисунках  7 и 8.

                 Рисунок  7 – Основная форма (Form1).

Рисунок 8 – Дополнительные формы (Form1 и Form2).

Попробуйте самостоятельно реализовать данное приложение Windows. В случае возникновения трудностей обратитесь к приложению А, которое содержит возможный текст процедур предложенного проекта.

Приложение А

Текст процедур для создания проекта «Записная книжка»

I. Создание главной формы Form1 – «Записная книжка»

1. Определение типа записей, из которых состоит файл, и описание некоторых переменных:

type zap=record

fam:string[22];               {Фамилия}

name:string[22];                  {Имя}

fon:string[22];           {Телефон}

adr:string[22];            {Адрес}

end;

Var

f:file of zap;

                   z:zap;

2. Обработчик события – нажать на кнопку «Ввод и добавление записей»

var size:integer;

Begin

AssignFile(f,'telefon.dat');

{$I-} Reset(F); {$I+}

if ioresult=0 then

begin size := FileSize(f);

          seek(f,size);

End

else rewrite(f);

Form2.Show;

Form2.edit1.setfocus;

end;

3. Обработчик события – нажать на кнопку «Поиск по фамилии».

Begin

AssignFile(f,'telefon.dat');

reset(f);

form3.show;

form3.edit1.setfocus;

end;

4. Обработчик события – нажать на кнопку «Завершение работы».

Begin

Close;

end;

II. Создание Form2 – «Ввод и добавление записей»

1. Обработчик события – нажать на кнопку «Записать».

Begin

z.fam:=edit1.text;

z.name:=edit2.text;

z.fon:=edit3.text;

z.adr:=edit4.text;

edit1.clear;

edit2.clear;

edit3.clear;

edit4.clear;

write(f,z);

edit1.setfocus;

end;

2. Обработчик события – нажать на кнопку «Конец».

Begin

closefile(f);

self.hide;

end;

III. Создание Form2 – «Поиск записей».

1. Обработчик события – нажать на кнопку «Найти».

var c:integer;

fam:string[22];

Begin

c:=1;

fam:=edit1.text;

While not eof(f) do

Begin

   read(f,z);

   if fam=z.fam then

Begin

         c:=0;

         edit2.text:=z.name;

         edit3.text:=z.fon;

         edit4.text:=z.adr;

         break;

      end;

end;

if c<>0 then

Begin

    edit3.text:='Нет данных';

end;

reset(f);

end;

2. Обработчик события – нажать на поле ввода «Фамилия» (Edit1).

Begin

edit1.clear;

edit2.clear;

edit3.clear;

edit4.clear;

end;

3. Обработчик события – нажать на кнопку «Конец».

Begin

closefile(f);

self.hide;

end;

Мы поможем в написании ваших работ!