[XaKeR282]

почему делфи ворчит на эту процедуру?

Код:

procedure TForm8.Button2Click(Sender: TObject);
var
s:integer
a:integer
b:integer
begin
a:=edit1.text;
b:=edit2.Text;
s:=edit3.text;
s=a+b
end;

[deltas]

И Вы называете ЭТО процедурой? Убейте меня, я больше немогу
Советую взяться за учебник по дельфи и изучать с первых строк...
Хотя если очень надо -

Код:

procedure TForm8.Button2Click(Sender: TObject);
var
a,b,s:integer;
begin
a:=StrtoInt(edit1.text);
b:=StrtoInt(edit2.text);
s:=StrtoInt(edit3.text);    - ???
s:=a+b;;      
end;

P.S И откуда TForm8 ? Чувствуется у Вас грандиозный проект...

[v1s2222]

Может он и так изучает учебник и что-то не получается...

Код:

procedure TForm8.Button2Click(Sender: TObject);
var
s:integer
a:integer
b:integer
begin
// в EDIT1,2,3 - строки, значит записать строку в числовую переменную мы просто так не можем.
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.Text);
s:=a+b;
Edit3.Text := IntToStr(s);
end;

[XaKeR282]

оттили бы лучше как правильно сделать((

[XaKeR282]

оооо, спс большое)

[Страдалецъ]

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

И Вы называете ЭТО процедурой? Убейте меня, я больше немогу
P.S И откуда TForm8 ? Чувствуется у Вас грандиозный проект...

По сути, все верно. Это процедура т.к. собственно так и называется.
А номер формы совсем не обязательно говорит о количестве форм в проекте, т.к. с некоторых пор в Дельфи автоматом нумеруются проекты на единичку больше предыдущего.

[XaKeR282]

Я и так написал, но опять ощибку даёт

Код:

procedure TForm8.Button2Click(Sender: TObject);
var
s:integer
a:integer
b:integer
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.Text);
s:=a+b;
Edit3.Text := IntToStr(s);
end;

Админ: Пользуемся тегами для оформления кода!

[TOJluK]

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

Я и так написал, но опять ощибку даёт

Вы предлагаете нам угадать какую именно ошибку и при каких обстоятельствах оно выдает? Как вариант предположу, что вы вводите не целое число в эдиты.

[dr. F.I.N.]

Код:

procedure TForm8.Button2Click(Sender: TObject);
var
s:integer;
a:integer;
b:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.Text);
s:=a+b;
Edit3.Text := IntToStr(s);
end;

[XaKeR282]

спасибо, сработала,только я не понял эту строчку:

Edit3.Text := IntToStr(s);