
30.05.2007, 18:56
|
|
Участник форума
Регистрация: 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;
|
|
|