Проблема с калькулятором

[spindul]

Здравствуйте уважаемые форумчане. Как в калькуляторе избавиться от глобальных переменных и нужно ли это?

procedure TForm1.Button3Click(Sender: TObject); //кнопка +
begin
  a:=strtofloat(edit1.Text);
  edit1.Text:=' ';
  zn:='+';
end;
procedure TForm1.Button2Click(Sender: TObject); //кнопка =
begin
  b:=strtofloat(edit1.Text);
  case zn of
    '+': d:=a+b;
  end;
 edit1.Text:=floattostr(d);
end;

Вверху выложил пример работ двух кнопок '+' и '='. Если делать с глобальными перемеными, то понятно как делать. А вот если делать через локальные, то возникает вопрос что делать с кнопкой '=' т.к. на кнопку '+' делается обычная сумма(процедурой), а как связать с = это не очень представляю.

[grom333]

Мне кажется не нужно избавляться. Если только в какой-нибудь скрытый Tedit будешь ставить значение и считывать его в другой переменной...

[Базиля]

Ну как раз для такого случая как у тебя и нужны глобальные переменные.
Если же хочется через локальные, то как уже и описали выше, можно внедрить edit или же метку.

[spindul]

не через скрытый TEdit никак не получится? точнее как сделать меткой?)

Так какие будут советы работы с меткой, просто ни разу толком с ней не работал

[Базиля]

Что именно не получается то?
Кидаешь метку на форму, делаешь ее невидимой, тем самым она становится не визуальным объектом. Ну а далее уже программно работаешь с ней, присваиваешь необходимое значение, забираешь его в нужный момент с метки.(таже суть и с edit'ом)
Почитай соответствующий материал, полезно будет, дальше без этого никуда.

[Вадим Мошев]

По поводу глобальных переменных.
А что если хранить значения не в глобальных переменных, а в private-полях какого-нибудь объекта?

Бодавлено []: переменная zn вполне может быть кандидатом такое поле

Так какие будут советы работы с меткой, просто ни разу толком с ней не работал

Я бы не советовал, если речь идёт о GOTO. Этот оператор имеет дурную репутацию.
А вообще так:

//Объявляем метку, как обычную переменную, только без типа
Label T;

begin
//...
T: // какой-то код
//...
goto T; // Перейдём к метке T
//..
end;

То есть этот оператор осуществляет переход к какому-то месту в коде, помеченного меткой.

[spindul]

с метками ни разу не работал, поэтому и не знаю толком ничего про них. Вопрос в том, что если я с ней начну работать это всё равно будут только глобальные переменные, или я ошибаюсь?
Приват поля тоже ни разу не работал с ними, как с ними работать, можете показать пример

[spindul]

GO To явно запрещена, нужно искать другое решение

[Базиля]

Речь шла о компоненте Label.
Автор, повторю еше раз:

Почитай соответствующий материал, полезно будет, дальше без этого никуда.

И большинство вопросов отпадут сразу.
P.S. Вроде как я до этого и описал все подробно...

[spindul]

Сообщение от Базиля

P.S. Вроде как я до этого и описал все подробно...

можете показать кодом для наглядности. просто сейчас читаю в Библии Делфи и там это используется как-то для других целей