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

1 ответ 1

1

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

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

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

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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