Помощник
|
Помощь в Delphi |
EvilGomel
|
Сообщение
#1
|
||
|
|
||
|
|||
Seo-optimist |
3.2.2010, 11:02;
Ответить: Seo-optimist
Сообщение
#2
|
|
procedure TForm1.Button1Click(Sender: TObject); var ps,ts,tas,ks,ss:real; begin ps:=StrTofloat(Edit1.Text); ts:=StrTofloat(Edit2.Text); tas:=StrTofloat(Edit3.Text); ks:=ts-ps; ss:=ks*tas; Edit4.Text:=floattostr(ks); Edit5.Text:=floattostr(ss); end; procedure TForm1.Button2Click(Sender: TObject); var pg,tg,tag,kg,sg:real; begin pg:=StrTofloat(Edit6.Text); tg:=StrTofloat(Edit7.Text); tag:=StrTofloat(Edit8.Text); kg:=tg-pg; sg:=kg*tag; Edit9.Text:=floattostr(kg); Edit10.Text:=floattostr(sg); end; procedure TForm1.Button3Click(Sender: TObject); var ph,th,tah,kh,sh:real; begin ph:=StrTofloat(Edit11.Text); th:=StrTofloat(Edit12.Text); tah:=StrTofloat(Edit13.Text); kh:=th-ph; sh:=kh*tah; Edit14.Text:=floattostr(kh); Edit15.Text:=floattostr(sh); end; procedure TForm1.Button4Click(Sender: TObject); var a,b,c,d,e:real; begin a:=StrTofloat(Edit16.Text); b:=StrTofloat(Edit17.Text); c:=StrTofloat(Edit18.Text); begin d:=b-a; e:=d*c; Edit19.Text:=floattostr(d); Edit20.Text:=floattostr(e); end; end; procedure TForm1.Button5Click(Sender: TObject); var ss,sg,sh,e,k:real; begin ss:=StrTofloat(Edit5.Text); sg:=StrTofloat(Edit11.Text); sh:=StrTofloat(Edit15.Text); e:=StrTofloat(Edit20.Text); k:=ss+sg+sh+e; Edit21.Text:=floattostr(k); end; end. Вот такой код задайте... ss:=StrTofloat(Edit5.Text); sg:=StrTofloat(Edit11.Text); sh:=StrTofloat(Edit15.Text); e:=StrTofloat(Edit20.Text); То есть, значение от куда будут братса. Вроде попробывал, считает коректно. Сообщение отредактировал Seo-optimist - 3.2.2010, 11:02 |
|
|
EvilGomel
|
Сообщение
#3
|
|
Попробовал,все равно ничего не происходит.
-------------------- |
|
|
Seo-optimist |
3.2.2010, 11:04;
Ответить: Seo-optimist
Сообщение
#4
|
|
EvilGomel, у меня вчера работало)) Именно не работает 5-тая кнопка?
|
|
|
GhostLog |
3.2.2010, 11:11;
Ответить: GhostLog
Сообщение
#5
|
|
Seo-optimist правильно поправил, должно работать.
Только вместо sg:=StrTofloat(Edit11.Text); надо sg:=StrTofloat(Edit10.Text); Сообщение отредактировал GhostLog - 3.2.2010, 11:15 |
|
|
Seo-optimist |
3.2.2010, 11:54;
Ответить: Seo-optimist
Сообщение
#6
|
|
GhostLog, ага точно..
EvilGomel, вчера у меня работало все коректно.. |
|
|
EvilGomel
|
Сообщение
#7
|
|
Все перепробовал, при нажатии на 5 кнопку ничего не происходит.
Вот сама прога Зы:может дело в 7 винде. -------------------- |
|
|
GhostLog |
3.2.2010, 20:52;
Ответить: GhostLog
Сообщение
#8
|
|
|
посмотрел программу, там на 5 кнопку событие не установлено, то есть в коде процедура события есть (procedure TForm1.Button5Click(Sender: TObject), а к кнопке не привязано.
просто 2 раза щелкни левой кнопкой мыши по 5 кнопке, скомпилируй и все будет работать. и не забудь исправить sg:=StrTofloat(Edit11.Text); на sg:=StrTofloat(Edit10.Text);
|
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Требуется помощь по сайту на "ВордПресс" Закрылся доступ в панель администратора |
15 | Tia2 | 2313 | Сегодня, 0:54 автор: diviner99 |
|
Состояние после ампутации - нужна помощь благотворительный топик |
49 | vitvirtual | 5865 | 1.4.2024, 5:23 автор: vitvirtual |
|
требуется помощь с themasoftware (Темапостером) | 0 | Taylor | 619 | 16.3.2024, 18:41 автор: Taylor |
|
Нужна помощь download traffic |
7 | Adblock_Affilate | 1439 | 4.5.2023, 22:01 автор: kuprum |
|
Нужна помощь по обмену рублей ETXT внутри биржи на Приват 2к рублей |
3 | TalanArtem | 1093 | 8.3.2023, 0:07 автор: анатасия228 |
Текстовая версия | Сейчас: 17.4.2024, 23:19 |