[Hunter US]

Створити калькулятор на чотири дії. Вибір дії здійснити, використовуючи
ТListВох. Обчислення ініціюється при виборі операції. Результат пишеться
елементом до іншого ТListВох у вигляді: 2 + 3 = 5
7-4 = 3

[angvelem]

Будьте ласковы, напишите по-русски. Не понимаю украинский.

[Hunter US]

Создать калькулятор на четыре действия. Выбор действия совершить, используя ТListВох. Вычисления инициируется при выборе операции. результат пишется элементом в другой ТListВох в виде: 2 + 3 = 5
7-4 = 3

[Bargest]

Я тоже украинского не знаю, но по моим догадкам, более продуктивно будет перевод писать сразу в разделе "Работа" или в "Гугле".

Не успел Но догадки были верны. Калькуляторов море и на DelphiSources, и в гугле, и в яндексе, и в koders.org.

[angvelem]

Выходим на главную страницу сайта, набираем в поиске "калькулятор" и скачиваем подходящий.

[Hunter US]

Вообще то меня интересует кусок кода отвечающего за ТListВох и запись в виде: 2 + 3 = 5 ; 2 и 3 берем из поля Edit; Кто знает напишите пожалуйста.

[Konrad]

3 edit
1 listbox
в лист боксе :
+
-
*
/

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,r:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
case listbox1.ItemIndex of
  0:r:=a+b;
  1:r:=a-b;
  2:r:=a*b;
  3:r:=a/b;
end;
edit3.Text:=floattostr(r);
end; 


Код довольно таки корявый, но в учебных целях сойдет.

[Hunter US]

Спасибо сейчас попробуем чтото слепить.
И еще один вопрос: Как кнопкой "Button" передвигать "Panel"

[Konrad]

Мда...

С учетом уточненного ТЗ:

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var
a,b:real;
r:string;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
case listbox1.ItemIndex of
  0:r:=edit1.text+' + '+edit2.text+' = '+floattostr(a+b);
  1:r:=edit1.text+' - '+edit2.text+' = '+floattostr(a-b);
  2:r:=edit1.text+' * '+edit2.text+' = '+floattostr(a*b);
  3:r:=edit1.text+' / '+edit2.text+' = '+floattostr(a/b);
end;
edit4.Text:=r;
end; 


Код еще корявее)
Просто для данной задачи, при данных условиях, не вижу смысла городить мего оптимизацию.

[angvelem]

Код:

procedure buttonclick(sender : tobject);
begin
  panel.left := panel.left+10;
end;

за одно нажатие сдвинули панель вправо на 10 пиксел.

[Konrad]

Сообщение от Hunter US

Спасибо сейчас попробуем чтото слепить.
И еще один вопрос: Как кнопкой "Button" передвигать "Panel"

Зачем?)))
Мсье знает толк в извращениях)

PHP код:

procedure TForm1.Button3Click(Sender: TObject);
begin
panel1.Left:=panel1.Left+1;
panel1.Top:=panel1.Top+1;
end; 


PHP код:

Париж. Вечер. Турист проголодался, заходит в бар, к нему подходит официант:
- Мсье желает девочку?
- Нет...
- Мсье желает мальчика?
- Да нет...
- Чего желает мсье?
- Мне бы курочку...
- О! Мсье знает толк в извращениях! 


П.с.: просто чет сегодня настроение такое.
А вообще-то в обычный день я бы послал тебя в раздел работа.

[Hunter US]

Очень помогли. Я уж думал чем буду свой мозг охлаждать . Спасибо.