Делфи. как правильно вставить код в код?

[Кушманский]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

и туда надо как то вставлять 

var r1,r2,r: real;
 begin
 r1:= strtofloat(edit1.Text);

    r2:= strtofloat(edit2.Text);
    if (r1=0) and (r2=0) then
    begin
    showmessage('задайте хотя бы одно сопротивление');
    exit;
     end;
     if radiobutton1.checked then r:=r1+r2
     else r:=(r1*r2)/(r1+r2);
     label3.caption:='общее сопротивление равно'+ floattostr(r)+'Om'
     end;

[vovk]

всавте это в процедуру обработки какого либо события, например нажатия кнопки, вон у вас там на форме 2 кнопки, а ни на одной нажатие не обрабатывается, по клику на 1 из них и ставте

[Кушманский]

Сообщение от vovk

всавте это в процедуру обработки какого либо события, например нажатия кнопки, вон у вас там на форме 2 кнопки, а ни на одной нажатие не обрабатывается, по клику на 1 из них и ставте

тоесть вместо Label1: TLabel; написать Label1:= strtofloat(edit1.Text); ?

[vovk]

Сообщение от Кушманский

тоесть вместо Label1: TLabel; написать Label1:= strtofloat(edit1.Text); ?

НЕТ
в дизайнере кликните 2 раза на кнопу, обработчик события создастся автоматически, и откроется редактор кода как раз внутри этого обработчика, вот твам и вставляйте ваш код, единственное следуйте правилам языка, то есть сначала едёт название проедуры и переменные которые она принимает, потом константы если есть после слова const , потом переменные если есть после var, а потом между
begin
end;
тело процедуры, то биш код

[Кушманский]

Сообщение от vovk

НЕТ
в дизайнере кликните 2 раза на кнопу, обработчик события создастся автоматически, и откроется редактор кода как раз внутри этого обработчика, вот твам и вставляйте ваш код, единственное следуйте правилам языка, то есть сначала едёт название проедуры и переменные которые она принимает, потом константы если есть после слова const , потом переменные если есть после var, а потом между
begin
end;
тело процедуры, то биш код

поставил в конце между бегин и энд. нажал на ф9 и после этого эта строка (procedure TForm1.Button1Click(Sender: TObject) покраснела..

[vovk]

о боже от куда вы все на мою голову.....
кд покажите который у вас получился, желательно весь юнит, только оформляйте его тегом code (решетка сверху редактора)

[Кушманский]

Сообщение от vovk

о боже от куда вы все на мою голову.....
кд покажите который у вас получился, желательно весь юнит, только оформляйте его тегом code (решетка сверху редактора)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure TForm1.Button1Click(Sender: TObject);

var r1,r2,r: real;
 begin
 r1:= strtofloat(edit1.Text);

    r2:= strtofloat(edit2.Text);
    if (r1=0) and (r2=0) then
    begin
    showmessage('çàäàéòå õîòÿ áû îäíî ñîïðîòèâëåíèå');
    exit;
     end;
     if radiobutton1.checked then r:=r1+r2
     else r:=(r1*r2)/(r1+r2);
     label3.caption:='îáùåå ñîïðîòèâëåíèå ðàâíî'+ floattostr(r)+'Om'
     end;


implementation

{$R *.dfm}

end.

[vovk]

Даже не знаю с чего начать...
Может книжку вам купить .. или хотябы скачать?
Решил тут отвечать не стоит,
читайте книги их много, в разделе общие вопросы дельфи смотрите верхние темы.

[Кушманский]

Сообщение от vovk

Даже не знаю с чего начать...
Может книжку вам купить .. или хотябы скачать?
Решил тут отвечать не стоит,
читайте книги их много, в разделе общие вопросы дельфи смотрите верхние темы.

хотябы подскажите пожалуйста куда вставить, завтра сдать надо

[vovk]

В дизайнере на кнопке даблклик откроется редактор кода там будет

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

отредактируйте
и должно получится так

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var r1,r2,r: real;
begin
r1:= strtofloat(edit1.Text);

r2:= strtofloat(edit2.Text);
if (r1=0) and (r2=0) then
begin
showmessage('задайте хотя бы одно сопротивление');
exit;
end;
if radiobutton1.checked then r:=r1+r2
else r:=(r1*r2)/(r1+r2);
label3.caption:='общее сопротивление равно'+ floattostr(r)+'Om'
end;