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]

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

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

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

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