|
|
Простейший калькулятор на Делфи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)
|
| Просмотров: 7460
| Рейтинг: 5.0/2 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
