[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 прописать

[iridium87]

СПАСИБО ТЕБЕ БОЛЬШОЕ. А Я ВОТ СИДЕЛ ПОКА И НА КОДИЛ
БЕГИН
a:=strtoint(edit1.text);
x:=x+a;
edit2.text:=inttostr(x);
edit1.text:='0';


у меня с переменными так ак они необходимы. разносторонние расчёты везде
А твой способ мне понравился

[Alegun]

Хорошо бы ещё тег [ CODE ]...[/ CODE ] пользовать и можно строку

Код:

x:=x+a;

заменить на

Код:

Inc(x, a);

[iridium87]

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