программа расчет электричества в Delphi



Сама программа
Юнит 1
Юнит 2
Среда разработки
Используемые компоненты (Нажать для показа) 1.Memo - для создания обширных текстов
2.Edit - для создания заполняемых полей
3.Label - для создания небольших текстов
4.Main Menu - для создания меню
5.Run - для представления программы в готовом виде
6.New Form - для создания новых форм
7.Viev Form - для откытия уже созданных форм
Текст программы (нажать для показа); interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);v procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a,b,c,d:real;
implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') or (edit3.text='') then begin
label4.Caption:='Вводи числа!';
exit;
end;
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
c:=strtofloat(Edit3.Text);
d:=(b-a)*c;
label4.Caption:='стоимость в рублях: '+floattostr(d);
if d<0 then label4.Caption:='проверьте показания!'

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',' , #8])then Key:=#0;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',' , #8])then Key:=#0;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.N2Click(Sender: TObject);
beginform3.showmodal;
end;
procedure TForm1.N3Click(Sender: TObject);
beginclose;
end;
end.
Скачать всю программу
Скачать только программу

Я просто не знаю что тут писать. Хех