Borland Delphi 7

[WOLF007]

Доброго времени суток не подскажите как из строки куда вводятся символы (Edit) перенести символы по нажатию кнопки в загаловок окна?

 

[WOLF007]

тема закрыта ответ нашел))

 

[WOLF007]

ребята у кого нить есть калькулятор написанные на делфи? нужна помощь...

 

[MrSTEP]

калькулятор есть, а в чем проблема?

 

[WOLF007]

да со сложением и умножением не могу совладать. не могу понять.

 

[MrSTEP]

Ну так что не понятно, говорите сразу, чего резину-то тянуть? Слушаем вашу проблему

 

[WOLF007]

как реализовать в коде эти действия что при нажатии на знак сложения он затиал старое значение и к этому значению прибавлял новое которое ввели отет выдовал по нажатию на кнопку равно.

 

[Long Cat]

1)При нажатии на +
1.1) запоминаем значение из edit
1.2) стираем содержимое edit
1.3)пишем туда 0
1.4) запоминаем, что нажали +

2)При нажатии на =
2.1)Проверяем, что нажали до этого, выбираем операцию
2.2)Читаем новое значение, применяем операцию к нему и к тому что запомнили в 1.1
2.3)Выводим на экран

 

[WOLF007]

а кусочек кода можно?

 

[Long Cat]

Лучше будет, если вы напишите свой и выложите сюда.

 

[AlexZir]

как реализовать в коде эти действия что при нажатии на знак сложения он затиал старое значение и к этому значению прибавлял новое которое ввели отет выдовал по нажатию на кнопку равно.

в обработчике нажатия кнопки "+" пропишите:

old_chislo:=strtofloat(edit1.text);
edit1.text:='';
flag_op:=1;

в обработчике нажатия "=" пропишите:

case flag_op of
1: res:=old_chislo+strtofloat(edit1.text);
2: ...{перечисление операций}
else res:=0
end;
edit1.text:=floattostr(res);

 

[WOLF007]

спасибо

 

[Nemezido]

Вопрос не много не в тему но все же...Можете подсказать где найти самоучители по 7 делфи?желательно в формате tхt?

 

[MrSTEP]

У меня есть самоучители в разных форматах. Сам, когда осваивал делфи, пользовался одним, в формате html. Могу выложить сюда. Но вопрос: вы знаете язык Паскаль, и вообще программировать умеете? От этого зависит, что я выложу

 

[WOLF007]

как реализовать "," и "+/-"? приведите пример плиз.

 

[AlexZir]

Переменная x какого типа? Должна быть real!

 

[WOLF007]

помогите кто нить.

 

[AlexZir]

свои исходники выложите

в обработчике запятой нужно проверить все выражение на наличие разделителя, если он отсутствует, тогда выполняете Edit1.text:=Edit1.text+'.';

 

[WOLF007]

спс. а положительный и отрицательный знак так же реализовывается?

 

[MrSTEP]

Проще всего сделать так: edit.text:=floattostr(strtofloat(edit.text)*(-1));