Показать сообщение отдельно

  #7  
Старый 30.05.2007, 18:56
Exile1985
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152

Репутация: 94
По умолчанию

Цитата:
Сообщение от ozhjog  
спс я вот так сделал:
var
a,b,c:integer ;

begin
a:=StrToint(EndEdit.Text);
b:=strtoint(Edit1.Text);
c:=a+b;
ResultEdit.Text:=IntToStr(c);
лучше так, один Edit1

var
a,b,c: integer;

begin
//при нажатии +
a:=strtoint(edit1.text);
edit1.text:=' ';
// при нажатии =
b:=strtoint(edit1.text);
c:=a+b;
edit1.text:=inttostr(c);
end;
 
Ответить с цитированием