Начало программы} uses Windows, Messages,

program Project2; { Начало программы} uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; {$R *.res} {$R *.dfm} {Имя DFM-файла должно совпадать с именем модуля (блока). } {Для получения единого модуля на языке Object Pascal при автоматическом создании приложения в среде Delphi файл Unit1.dfm следует переименовать в Project2.dfm, а код модуля Unit1.pas перенести в модуль Project2.pas} type {Объявление нового типа окна формы TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; ListBox1: TListBox; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ListBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var {Начало области объявлений } Form1: TForm1; i: Integer; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:='Button1'; end; procedure TForm1.Button2Click(Sender: TObject); var i:Integer; procedure P1(); {Вложенная процедура} var i:Integer; begin i:=5; Edit1.Text:= Edit1.Text+' i= ' + IntToStr(i); end; begin Edit1.Text:='Button2'; i:=0; P1 (); end; procedure TForm1.ListBox1Click(Sender: TObject); begin Edit1.Text:='ListBox1'; end; begin {Начало выполнения программы} Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

Пример 5.1. Блочная структура программы на языке Object Pascal

Закрыть окно

program Project2; {Начало программы}

uses

Windows, Messages, SysUtils, Variants,

Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

{$R *.res}

{$R *.dfm} {Имя DFM-файла должно совпадать

с именем модуля (блока). }



{ Для получения единого модуля на языке Object Pascal

при автоматическом создании приложения в среде Delphi

файл Unit1.dfm следует переименовать в Project2.dfm,

а код модуля Unit1.pas перенести в модуль Project2.pas}

type {Объявление нового типа окна формы TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

ListBox1: TListBox;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var {Начало области объявлений }

Form1: TForm1;

i: Integer;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:='Button1';

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:Integer;

procedure P1(); {Вложенная процедура}

var i:Integer;

begin

i:=5;

Edit1.Text:= Edit1.Text+' i= ' + IntToStr(i);

end;

begin

Edit1.Text:='Button2';

i:=0;

P1 ();

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Edit1.Text:='ListBox1';

end;

begin {Начало выполнения программы}

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.


Содержание раздела

---

---