Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

M-Alex © (2004-09-13 18:56:00)
Я недавно начел программировать на Delphi и не могли бы вы подсказать, как сделать: Данные из Edit1 умножаются на Edit2, и ответ выводится в Edit3 всё это происходит по нажатию Button1.

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

Ega23 (2004-09-14 11:33:00) [2]
Defunct не об этой ошибке говорит, кажется.

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

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

TUser (2004-09-14 11:19:00) [3]

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

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

Vasya.ru (2004-09-14 10:49:00) [4]
Defunct © (14.09.04 6:32) [5]
Первый раз в жизни слово "клик" на английском писал, отсюда и ошибка

Defunct (2004-09-14 06:32:00) [5]
> Калькулятор пишешь? Я тоже в сопливые годы писал...
> Form1.Button1.ButtonClisk

looks like someone is still in snotty ages ;)

Defunct (2004-09-14 06:19:00) [6]
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;

Vasya.ru (2004-09-14 00:06:00) [7]
Чушь написал, каюсь

Vasya.ru (2004-09-13 21:21:00) [8]
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;
Калькулятор пишешь? Я тоже в сопливые годы писал...

Palladin (2004-09-13 18:59:00) [9]
StrToInt/StrToIntDef + F1

Наверх

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