Скачать: CL | DM;

TMemo   Найти похожие ветки 

← →
Виктория   (2006-10-04 17:26) [0]

Люди помогите!!! Необходимо ввести 2 числа в поле Edit1 и Edit2, вывести их в Memo, затем сложить их при нажатии на кнопку "Выполнить", которая должна поменяться на "закрыть" и закрыть приложение.
Я написала код,  кнопка "Выполнить" после всех действий меняется на "закрыть", но не закрывает приложение, если после строки Button6.Caption:="Закрыть" написать close, то закрывается все приложение.


procedure TForm1.Button6Click(Sender: TObject);
var
x,y,z:real;
begin
x:=StrtoFloat(Edit1.Text);
y:=StrtoFloat(Edit2.Text);
z:=x+y;
Memo1.Lines.Add("Первое число="+ Edit1.Text + chr(13)+"Второе число="+Edit2.Text+chr(13)+"Результат="+ FormatFloat("####.##",z));
Edit1.Clear;
Edit1.SetFocus;
Edit2.Clear;
Button6.Caption:="Закрыть";
end;

end.

---

← →
ProgRAMmer Dimonych   (2006-10-04 17:30) [1]

Надо определять, что в Caption в обработчике события Button6Click.
Или, как вариант сопоставить каждой надписи определённое значение свойства Tag. Если выбор будет за вариантом два, прошу сообщить: подскажу, как можно поизвращаться...

---

← →
eRoR_rrr ©   (2006-10-04 18:50) [2]

function add_real(x,y:real):real;
begin
Result := x + y;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Button1.Caption = "Выполнить" then
   Memo1.Lines.Add("Первое число="+ Edit1.Text+". Второе число="+Edit2.Text+". Результат="+FloatToStr(add_real(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text))))
 else
   Close;
end;

---

← →
eRoR_rrr ©   (2006-10-04 18:59) [3]

Извиняюсь, в цикл if забыл дописать, вот так правильно:
 if Button1.Caption = "Выполнить" then begin
   Memo1.Lines.Add("Первое число="+ Edit1.Text+". Второе число="+Edit2.Text+". Результат="+FloatToStr(add_real(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text))));
   Button1.Caption := "Закрыть";
   end
 else
   Close;

---

← →
ArtemESC ©   (2006-10-04 19:32) [4]

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

---

← →
ProgRAMmer Dimonych   (2006-10-04 19:47) [5]

> [4]
А чё, есть проблемы со скоростью ответов? Так можно, чтобы не врать, ещё и пол сменить ;)

---

← →
Leonid Troyanovsky ©   (2006-10-04 20:19) [6]

> ProgRAMmer Dimonych   (04.10.06 19:47) [5]
> > [4]
> А чё, есть проблемы со скоростью ответов? Так можно, чтобы
> не врать, ещё и пол сменить ;)


Скорость требуется, мм.., при ловле блох.

А еще требуется ответственность за свои слова,
бо у анонимов планка слегка занижена.

--
Regards, LVT.

---

← →
Правильный Вася   (2006-10-04 22:06) [7]

ArtemESC ©   (04.10.06 19:32) [4]
покрасься в блондинку, побрей ноги и выложи фотку
тогда все сразу будут помогать задаром

---

← →
ArtemESC ©   (2006-10-04 23:00) [8]

Правильный Вася   (04.10.06 22:06) [7]
Однако не думал, что "все" такие извращенцы...

---

← →
Viktoria   (2006-10-05 16:54) [9]

Мальчики не ссорьтесь, а тебе ProgRAMmer Dimonych  спасибо за помощь...:))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c