Тема: Delphi 2009
Показать сообщение отдельно
  #4  
Старый 28.03.2014, 10:36
Аватар для madMonia
madMonia madMonia вне форума
Новичок
 
Регистрация: 25.02.2014
Сообщения: 50
Версия Delphi: Delphi XE3
Репутация: 2545
По умолчанию

1) Добавте на форму два Edit'а, один Button
2) Перед Edit'ами добавьте по лабелу, в одном напишите "введите А", в другом "введите B"
3) На кнопку челкните два раза - курсор переместится на код, типо такого:

Код:
TForm1.OnButton1Click(Sender: TObject);
begin
end;

TForm1.OnButton1Click(Sender: TObject); - это процедура, которая будет срабатывать при нажатии на клавишу. Дальше сделайте по алгоритму Отдельно могу сказать, что придется переводить текст из едитов в число и наоборот. Это можно сделать так:

Код:
TForm1.OnButton1Click(Sender: TObject);
var
  a, b: float;
begin
  if not TryStrToFloat(Edit1.Text, a) then
  begin
     ShowMessage('неверный формат числа указан в качестве а');
     exit;
  end;

   if not TryStrToFloat(Edit2.Text, b) then
  begin
     ShowMessage('неверный формат числа указан в качестве b');
     exit;
  end;

  // тут нужно вставить вычисления

 Edit1.Text := FloatToStr(a);
 Edit2.Text := FloatToStr(b);
end;
__________________
Невозможно заточить карандаш тупым топором. Столь же тщетно пытаться сделать это десятком тупых топоров
Ответить с цитированием