03.03.2013, 16:10
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от andrew4
Составить сумматор...Один ... Edit...
|
Код:
var
flg: boolean;
tmp: integer;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', chr(VK_BACK): Exit;
chr(VK_RETURN):
begin
if flg then
begin
flg:= not flg;
Edit1.Text:= IntToStr(tmp + StrToInt(Edit1.Text));
ShowMessage('Сумма равна: '+ Edit1.Text);
end else
begin
tmp:= StrToInt(Edit1.Text);
Edit1.Clear;
flg:= not flg;
end;
end;
else Key:= #0;
end; { case }
end;
|