delfi 7

[*Fantom*]

Почему не работает программа??

unit kyrsach;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  z,x,y,c:real;


implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.text);
c:=strtofloat(edit3.Text);


z:=(x/100)*y*c;
if CheckBox1.Checked = True then   z:=z*2;
Label1.Caption := FloatToStr(z);


end;



procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Липовец Владислав Сергеевич Кит-82');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage('Преподаватель Любченко Наталья Юрьевна');
end;


end.

Когда запускаю не чево не происходит, ошибки непоявляються(

[Poma][a]

Когда запускаю не чево не происходит, ошибки непоявляються(

Может быть потому что Вы пишете модуль, а не программу?

[*Fantom*]

Сообщение от Poma][a

Может быть потому что Вы пишете модуль, а не программу?

В каком смысле модуль? У меня прога должна работать при нажатии на кнопку.

[Poma][a]

Ваш код создаст модуль. Вы его можете подключить в программке.

[*Fantom*]

Сообщение от Poma][a

Ваш код создаст модуль. Вы его можете подключить в программке.

А как код переделать?

[kventin_zhuk]

Код файла проекта скиньте, там должно быть что-то аля:

Application.CreateForm(TForm1, Form1);

Есть?)

[Stilet]

А как код переделать?

Его то как раз переделывать не нужно. Нужно просто в проекте подключить для компонентов события, описанные в коде.
Спросишь как подключить события? Открываешь в инспекторе объектов компонент, находишь нужное событие -для кнопки например OnClick и в выпадающем списке либо выбираешь уже имеющееся, либо создаешь новое, вводя название.

[*Fantom*]

ВСЕМ СПАСИБО БУДУ РОЗБИРАТЬСЯ)