Что ни так в конкуляторе? - Общие вопросы Delphi

qwizz · 24.03.2013, 22:54

Код:

procedure TForm1.Button1Click(Sender: TObject);
var q,w,e:string;
begin
 q:=Edit1.Text;
 w:=Edit2.Text;
 e:=q+e;
 label1.caption:=e;
end;

end.

FleXik · 24.03.2013, 22:55

извиняюсь за оффтоп но первый раз вижу чтобы так называли калькулятор :DD, а по теме:

Код:

e:=q+w;

qwizz · 24.03.2013, 22:56

аа точно!! спасибо

qwizz · 24.03.2013, 22:57

она открывается и в этуже секунду закрывается!( что делать?

Аватар · 24.03.2013, 22:57

Конкулятор заело. А что не так? Что нужно, сложить числа или строки сцепить, что ваш конкулятор и сделал?

qwizz · 24.03.2013, 22:59

Цитата:

Сообщение от Аватар

Конкулятор заело. А что не так? Что нужно, сложить числа или строки сцепить, что ваш конкулятор и сделал?

надо что бы я вписал в 1 edit и в 2edit вышло в label

Аватар · 24.03.2013, 23:14

Код:

label1.caption:=IntToStr(StrToIntDef(Edit1.Text,0)+StrToIntDef(Edit2.Text,0));

stalker1995s · 25.03.2013, 10:33

Изучи как следует, функции:
intToStr(); // Из integer в String;
strToint(); // Из string в integer;

bakanaev · 25.03.2013, 10:45

ТС, калькулятор

24.03.2013, 22:54	#1
qwizz Пользователь Регистрация: 24.03.2013 Сообщений: 22	Что ни так в конкуляторе? Код: `procedure TForm1.Button1Click(Sender: TObject); var q,w,e:string; begin q:=Edit1.Text; w:=Edit2.Text; e:=q+e; label1.caption:=e; end; end.` Последний раз редактировалось Stilet; 24.03.2013 в 23:23.

24.03.2013, 22:55	#2
FleXik Форумчанин Регистрация: 01.11.2012 Сообщений: 770	извиняюсь за оффтоп но первый раз вижу чтобы так называли калькулятор :DD, а по теме: Код: `e:=q+w;`

24.03.2013, 22:57	#5
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Конкулятор заело. А что не так? Что нужно, сложить числа или строки сцепить, что ваш конкулятор и сделал? Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

24.03.2013, 23:14	#7
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `label1.caption:=IntToStr(StrToIntDef(Edit1.Text,0)+StrToIntDef(Edit2.Text,0));` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Что не так?	sasha1988	Помощь студентам	5	23.01.2013 19:12
Что не так?	sanatina	Помощь студентам	4	17.11.2011 18:55
Что-то не так в программе...не пойму что	Karina_Vamp	Помощь студентам	5	24.12.2010 21:06
Что не так?	zumm	Работа с сетью в Delphi	4	31.08.2010 16:06

24.03.2013, 22:56	#3
qwizz Пользователь Регистрация: 24.03.2013 Сообщений: 22	аа точно!! спасибо

25.03.2013, 10:33	#8
stalker1995s Gamedeveloper Форумчанин Регистрация: 11.07.2012 Сообщений: 149	Изучи как следует, функции: intToStr(); // Из integer в String; strToint(); // Из string в integer;

25.03.2013, 10:45	#9
bakanaev Форумчанин Регистрация: 27.03.2012 Сообщений: 438	ТС, калькулятор