|
Простейший калькулятор на Делфи7
Сейчас я покажу как на Delphi можно создать простой калькулятор. Бросай на форму компоненты CheckBox - 4шт. Edit - 2шт. Label и Button procedure TForm1.Button1Click(Sender: TObject); var a, b, rezult : integer; begin a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); if CheckBox1.Checked = True then rezult := a + b; if CheckBox2.Checked = True then rezult := a - b; if CheckBox3.Checked = True then rezult := a * b; if CheckBox4.Checked = True then rezult := a div b; Label1.Caption := IntToStr(rezult); end;
|
Категория: Примеры на Delphi7 | Добавил: DelphiAiX (20.03.2011)
|
Просмотров: 7461
| Рейтинг: 5.0/2 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|