Форум АНТИЧАТ - Помогите с кодом в Delphi

Помогите с кодом в Delphi

02.11.2008, 02:37

blednii

Участник форума

Регистрация: 12.06.2007

Сообщений: 160

Провел на форуме:
357904

Репутация: 44

Отправить сообщение для blednii с помощью ICQ

Отправить сообщение для blednii с помощью Yahoo

Помогите с кодом в Delphi

Доброго времени суток.
Имеется такой вот код, с ним проводятся простые мат операции, как сделать чтоб нельзя было вводить ничего кроме цифр и если поля не заполненны не выбивала стандартная ошибка.

Цитата:

' ' is not a valid integer value

Сам код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='')or (Edit4.Text='') then
ShowMessage('Все поля обязательны к заполнению');
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')and (Edit4.Text<>'') then
Label9.Caption:='Спасибо за использование!';
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
e:=1-d/100;
f:=b/a*c*e;
g:=b/a*c;
Label6.Caption:=FloatToStr(f);
Label8.Caption:=FloatToStr(g);

end;

Спасибо за внимание.