0

введите сюда описание изображения

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 Должно получиться валидное значение (в этом пункте проблема)

18
  • Где выдает? Какие числа понятные, какие нет? Commented 25 сент. 2017 в 18:34
  • @HasmikGaryaka на форме (один єдит три батона)
    – Method
    Commented 25 сент. 2017 в 18:37
  • Скрин можете прикрепить? И в результате чего такое получилось. Commented 25 сент. 2017 в 18:40
  • 1
    @Metod Не понятна суть проблемы. Что вы вводите, что ожидаете и что выводится на самом деле?
    – zed
    Commented 25 сент. 2017 в 19:11
  • @zed если слаживать (вычитать) числа то совсем левое число вылетает
    – Method
    Commented 25 сент. 2017 в 19:14

1 ответ 1

1

Если я всё правильно понял, событие Button1Click это нажатие кнопки + или -. И в этом событии вы считываете значение первого операнда в FFine1 и тут же, не дождавшись ввода второго операнда, начинаете выполнять расчёты и обращаетесь к переменной FzDva, в которую вы ещё не занесли никакого значения. В итоге у вас и получается не то, что нужно.

Вам надо переделать код так, чтобы в событии Button1Click вы запоминали первый операнд (в FFine1) и тип операции (сложение/вычитание/и т.д.), но саму операцию не выполнять до того момента, пока не будет нажата кнопка = и вы не попадёте в событие Button2Click. В событии же Button2Click вы уже можете считать значение второго операнда в FzDva и используя сохранённое значение первого операнда из FFine1 и тип операции, выполнить расчёт и вывести результат.

4
  • с тем что переменная не инициализирована то вы погорячились, она член класса, так то равна нулю.
    – teran
    Commented 25 сент. 2017 в 19:59
  • @teran Строго говоря - да, но она не инициализирована значением, которое ожидает в ней увидеть топикстартер. То, что она инициализирована значением по умолчанию (нулём), особой роли не играет.
    – zed
    Commented 25 сент. 2017 в 20:15
  • как по мне, тут надо использовать другое слово, а не инициализацию, да и "мусор" там вполне поддающийся объяснению, а не абы какой. В общем, вопрос терминологии, не более.
    – teran
    Commented 25 сент. 2017 в 20:25
  • @teran Ок, поправил терминологию.
    – zed
    Commented 25 сент. 2017 в 21:58

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.