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

Математические операции   Найти похожие ветки 

← →
M-Alex   (2004-09-13 18:56) [0]

Я недавно начел программировать на Delphi и не могли бы вы подсказать, как сделать: Данные из Edit1 умножаются на Edit2, и ответ выводится в Edit3 всё это происходит по нажатию Button1.

---

← →
Palladin ©   (2004-09-13 18:59) [1]

StrToInt/StrToIntDef + F1

---

← →
Vasya.ru   (2004-09-13 21:21) [2]

Form1.Button1.ButtonClisk (Sender : TObject)
Var
 a, b, c : integer;
Begin
a := StrToInt(Edit1.text);
b := StrToInt (Edit2.text);
Edit3.Text := IntToStr(a * b);
End;
Калькулятор пишешь? Я тоже в сопливые годы писал...

---

← →
Vasya.ru   (2004-09-14 00:06) [3]

Чушь написал, каюсь

---

← →
Defunct ©   (2004-09-14 06:19) [4]

procedure TForm1.Button1Click(Sender: TObject);
Var V1,V2:Variant;
begin
 V1 := Edit1.Text;
 V2 := Edit2.Text;
 Try
   Edit3.Text := V1 * V2;
 Except
   Edit3.Text := "?????";
 End;
end;

---

← →
Defunct ©   (2004-09-14 06:32) [5]

> Калькулятор пишешь? Я тоже в сопливые годы писал...
> Form1.Button1.ButtonClisk

looks like someone is still in snotty ages ;)

---

← →
Vasya.ru   (2004-09-14 10:49) [6]

Defunct ©   (14.09.04 6:32) [5]
Первый раз в жизни слово "клик" на английском писал, отсюда и ошибка

---

← →
TUser ©   (2004-09-14 11:19) [7]

> Первый раз в жизни слово "клик" на английском писал, отсюда
> и ошибка

Defunct не об этой ошибке говорит, кажется.

---

← →
Ega23 ©   (2004-09-14 11:33) [8]

Defunct не об этой ошибке говорит, кажется.

ИМХО, и об этой тоже.

Кстати, о пцыцах: а где было сказано, что а и б - целые цисла?

---

← →
Vasya.ru   (2004-09-14 14:36) [9]

Кстати, о пцыцах: а где было сказано, что а и б - целые цисла?
А где было сказано, что нет.
procedure TForm1.Button1Click(Sender: TObject);
А здесь Ega23 спросит "А где было сказано, что Button1 находится на Form1?"

---

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

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



Память: 0.46 MB
Время: 0.025 c