Математические операции

← →
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]
Первый раз в жизни слово "клик" на английском писал, отсюда и ошибка

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

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

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

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

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

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

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

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