[iridium87]

Всем привет дорогое специалисты. Я пишу программу и застрял вот на таком месте. В одной части программы имеется например 2 поля едит и кнопка. В поле едит1 пишем число. при нажатии кнопки происходит какое то математическое действие не важно какое например число умножается на 15.6 и ответ вписывается в едит два. Вопрос такой как сделать так чтобы если опять ввести число в едит1 и нажать кнопку то во втором поле число увеличилось и так всегда. Заранее спасибо большое. Бился сам никак. Может кто поможет

[Alegun]

Наверное что-то типа такого

Код:

var
flg: boolean = false;
procedure TForm1.Button1Click(Sender: TObject);
begin
if flg then
Edit2.Text:= IntToStr(StrToInt(Edit2.Text) + StrToInt(Edit1.Text))
else Edit2.Text:= FloatToStr(StrToFloat(Edit1.Text) * 15.6);
flg:= true;
end;

[iridium87]

не работает к сожалению как хотелось бы

[lmikle]

Не понятно, что надо сделать. Опиши более четко.

[iridium87]

вот кратно. на форме два едит поля и кнопка. в едит1 пишу число нажимаю кнопку оно и число помещается в поле едит 2 приэтом поле едит1 отчищается. затем ввожу ещё раз число в едит1 нажимаю и поле едит2 число увеличивается. тоесть типо числа складываются (пополняются). и так далее. Для примера поле едит1 это выработка продукции а едит 2 пополнение на склад продукции. не могу никак сообразить сам. буду благодарен

[Alegun]

А что не так, проверил - работает согласно данной логике

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text <> '' then
 Edit2.Text:= IntToStr(StrToInt(Edit2.Text) + StrToInt(Edit1.Text));
Edit1.Clear;
end;

З.Ы. Нолик только изначально не забудьте в Edit2 прописать