type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
FFine1, FFine2, FzDva : real;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
FzDva := StrToFloat(Edit1.Text);
Edit1.Text := FloatToStr(FFine2);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
fFine1 := StrToFloat(Edit1.Text);
Edit1.Clear;
if (Sender as Tbutton).Name = 'Button1' then begin
FFine2 := fFine1 + FzDva;
end
else begin
if (Sender as Tbutton).Name = 'Button3' then begin
FFine2 := FFine1 - FzDva;
end;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// разрешить ввод цифр, запятой, знака '-' и backspace
if not (key in ['0'.. '9', #8, #44]) then
// в противном случае не вводить ничего
key:= #0;
end;
end.
Почему выдаёт непонятное число ? Начало такое происходить после добавления слушателя событий других кнопок.
Как работает:
1 Вписываем значение в эдит
2 Нажимаем на плюс (минус)
3 Вписываем новое значение
4 Нажемаем равно
5 Должно получиться валидное значение (в этом пункте проблема)