Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 21 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

21
Помимо главного модуля каждый проект включает как минимум
один модуль формы, который содержит описание стартовой формы
приложения и поддерживающих её работу процедур. В Delphi каждой
форме соответствует свой модуль.
Текст модуля формы проекта пересчёта дюймов в сантиметры .
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var d, sm : real;
begin
d:=StrToFloat(Edit1.Text);
sm:=d*2.54;
Label2.Caption:=Edit1.Text + ' дюйм ( а / ов) это ' +
FloatToStrF(sm, ffGeneral, 6, 2) + ' см ';
end;
end.
Начинается модуль словом unit, за которым следует имя модуля .
Именно это имя упоминается в списке используемых модулей в инст -
рукции uses главного модуля приложения .
Интерфейсный раздел модуля ( interface ) сообщает компилятору ,
что именно в этом модуле является доступным для других модулей
проекта. В этом разделе перечислены (после слова uses) библиотечные
модули, используемые данным модулем , а также находится сформиро -
                                         21
     Пом им о гла вн ого м од у ля ка ж д ый проект вклю ча ет ка к м ин им у м
од ин м од у ль ф орм ы, который сод ерж ит описа н ие ста ртовой ф орм ы
прилож ен ия и под д ерж ива ю щих её ра б от у процед у р. В Delphi ка ж д ой
ф орм е соот ветст ву ет свой м од у ль.
     Т екст м од у ля ф орм ы проект а пересчёт а д ю йм ов в са н тим етры.
     unit Unit1;
     interface
     uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
      StdCtrls;
     type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Label1: TLabel;
        Label2: TLabel;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     var
      Form1: TForm1;
     implementation
     {$R *.DFM}
     procedure TForm1.Button1Click(Sender: TObject);
     var d, sm : real;
     begin
       d:=StrToFloat(Edit1.Text);
       sm:=d*2.54;
       Label2.Caption:=Edit1.Text + ' д ю йм (а /ов) э то ' +
                  FloatToStrF(sm, ffGeneral, 6, 2) + ' см ';
     end;
     end.

      Н а чин а ет ся м од у ль словом unit, за кот орым след у ет им я м од у ля .
И м ен н о э т о им я у пом ин а ет ся в списке использу ем ых м од у лей в ин ст -
ру кции uses гла вн ого м од у ля прилож ен ия .
      И н т ерф ейсн ый ра зд ел м од у ля ( interface ) сооб ща ет ком пиля тору ,
чт о им ен н о в э    т ом м од у ле я вля ет ся д ост у пн ым д ля д ру гих м од у лей
проект а . В э   том ра зд еле перечислен ы (после слова uses) б иб лиотечн ые
м од у ли, использу ем ые д а н н ым м од у лем , а та кж е н а ход ит ся сф орм иро-

Страницы