здравствуйте) помогите пожалуйста)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TfmMult = class(TForm)
btFirst: TBitBtn;
btSecond: TBitBtn;
edInput: TEdit;
mmOutput: TMemo;
btClose: TButton;
lbMessage: TLabel;
procedure btCloseClick(Sender: TObject);
procedure btFirstClick(Sender: TObject);
procedure btSecondClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
X,Y:integer;
public
{ Public declarations }
end;
var
fmMult: TfmMult;
implementation
{$R *.DFM}
procedure TfmMult.btCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfmMult.btFirstClick(Sender: TObject);
begin
//Преобразуем текст из edInput в целое число:
X:=StrToInt(Trim(edInput.Text));
//Сообщаем в мемо-поле о вводе первого числа:
mmOutput.Lines.Add('Первое число - '+edInput.Text);
//Очищаем поле ввода:
edInput.Text:='';
//Возвращаем фокус полю ввода:
edInput.SetFocus;
//Выводим подсказку в поле метки:
lbMessage.Caption:='Введите второе число:';
//Делаем первую кнопку недоступной, а вторую доступной:
btFirst.Enabled:=False;
btSecond.Enabled:=True;
end;
procedure TfmMult.btSecondClick(Sender: TObject);
begin
//Преобразуем текст из edInput в целое число:
Y:=StrToInt(Trim(edInput.Text));
//Сообщаем в мемо-поле о вводе второго числа:
mmOutput.Lines.Add('Второе число - '+edInput.Text);
//Вычисляем и показываем результат:
mmOutput.Lines.Add('Результат: '+IntToStr(X)+'*'+
IntToStr(Y)+'='+IntToStr(X*Y));
//Очищаем поле ввода:
edInput.Text:='';
//Возвращаем фокус полю ввода:
edInput.SetFocus;
//Выводим подсказку в поле метки:
lbMessage.Caption:='Введите первое число:';
//Делаем первую кнопку доступной, а вторую недоступной:
btFirst.Enabled:=True;
btSecond.Enabled:=False;
end;
procedure TfmMult.FormActivate(Sender: TObject);
begin
//Передаем фокус полю ввода edInput:
edInput.SetFocus;
end;
end.
Задание 1.
Дополните программу защитой от некорректного ввода данных.
Задание 2.
Измените программу так, чтобы при начале ввода каждой следующей пары чисел (точнее - при вводе первого числа из пары) мемо-поле очищалось.
Указание. Объект Lines, который хранит строки мемо-поля, обладает методом Clear, с помощью которого можно очистить содержимое мемо-поля.