| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMemo [D7, XP]

Виктория ©   (2006-10-04 17:26:00) 

Люди помогите!!! Необходимо ввести 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.

---

Viktoria   (2006-10-05 16:54:00) [1]

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

---

ArtemESC   (2006-10-04 23:00:00) [2]

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

---

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

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

---

Leonid Troyanovsky   (2006-10-04 20:19:00) [4]

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


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

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

--
Regards, LVT.

---

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

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

---

ArtemESC   (2006-10-04 19:32:00) [6]

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

---

eRoR_rrr   (2006-10-04 18:59:00) [7]

Извиняюсь, в цикл 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;

---

eRoR_rrr   (2006-10-04 18:50:00) [8]

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;

---

ProgRAMmer Dimonych   (2006-10-04 17:30:00) [9]

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

---

Наверх