проект Delphi е набор от софтуерни единици - модули. Един от модулите - основна, тя съдържа инструкции, от които започва програмата. Основният модул приложение е напълно оформен от Delphi.
Основният модул е файл с разширение DPR. За да видите текста на основния модул приложение, е необходимо от менюто Project, а след това щракнете върху Преглед на изходния код.
Изтегляне - пример за завършен проект в Лазар (91,59 MB) = 1,31min.
Изброяването по-долу е текста на основния модул на програмата се изчисли скоростта на движение.
Обявата №1. Основният модул на приложение - vrun програма;
Тя започва основната кратката програма единица, следвана от прог име Ranma, която съвпада с името на проекта. Името на проекта е определен по време на проекта neniya запазена, и в него се посочва името на компилатор генерира изпълним файл. Други употреби на думата, последван от имената на модулите: Библиотека модулни форми и vrunl.pas формират модул.
Изпълнението на основния модул се намира между инструкциите започват и свършват. Инструкции изпълнима част на инициализация за кандидатстване и предоставяне на дисплея на началния екран.
В допълнение към основния модул, всяка програма съдържа най малко още една форма модул, който съдържа описанието на изходните форми на приложение и подпомагане на неговите работни процедури. В Делфи, всяка форма има своя собствена единица.
Изброяването по-долу е текстът на скоростта на работеща програма изчисление модул.
Обявата №2. модул на програмата.
Windows, Съобщения, SysUtils, варианти, уроци,
Graphics, контроли, форми, диалогови прозорци, StdCtrls;
TForm1 = клас (TForm) Edit1: TEdit;
Edit2: TEdit; Label1: TLabel;
LABEL2: TLabel; Label3: TLabel;
процедура ButtonlClick (Sender: TObject);
процедура Button2Click (Sender: TObject);
Натискането // Изчисли
процедура TForm1.ButtonlClick "(подателя: TObject);
дист. цяло число; // разстояние м
т: реално; // а фракционна брой
мин. цяло число; // време, та
сек. цяло число; // време, секунди
// получи входните данни от полетата за въвеждане
дист: = StrToInt (Edit1.Text); т: = StrToFloat (Edit2.Text);
мин: = TRUNC (т); // брой минути - тя е неразделна част от т
сек: = TRUNC (т * 100) мод 100; // броя секунди - дробна част
V: = (дист / 1000) / ((мин * 60 + сек) / 3600);
label4.Caption: = "Разстояние: '+ Edit1.Text +' т '+ # 13
+ "Време: '+ IntToStr (мин) +" М "
+ IntToStr (сек) + "и" + # 13 +
"Скорост: '+ FloatToStrF (V, ffFixed, 4,2) + km / h;
Натискането // Край
процедура TForm1.Button2Click (Sender: TObject)
Модул единица започва думата, следвана от името на модула. Това име се споменава в списъка на модули, използвани в инструкцията използва основния модул молба, текстът на която е показана на Обява OT.
Модулът се състои от следните раздели:
Свързани статии