Калькулятор на delphi

  • Автор темы MODERN
  • Дата начала
MODERN
Участник
Сообщения
756
Реакции
130
Сейчас напишем простенький калькулятор.

На форму кидаем 3 текстовых поля и 4 кнопки, у первой кнопки свойство Caption ставим умножить у 2 разделить у 3 сложить, а у 4 вычесть.

в первую кнопку пишем такой код:
Код:
edit1.Text := floattostr(strtofloat(edit2.Text) * strtofloat(edit3.Text));
вот код для 2:
Код:
edit1.Text := floattostr(strtofloat(edit2.Text) / strtofloat(edit3.Text));
для 3:
Код:
edit1.Text := floattostr(strtofloat(edit2.Text) + strtofloat(edit3.Text));
и для 4:
Код:
edit1.Text := floattostr(strtofloat(edit2.Text) - strtofloat(edit3.Text));
теперь обьясню floattostr и strtofloat.

floattostr это функция перевода чила с дробной частью в строковой тип, есть еще функция inttostr но она работает с целым числом.

теперь про strtofloat это функция перевода строки в число с дробной частью, здесь есть еще функция strtoint она строку в обычное число без дробной части.
 
Сверху