[ShadowMas]

Извиняюсь за глупый вопрос, просто я только учусь и поэтому ещё не всё понятно а где находится "компонент MaskEdit" в смысле в какой групе инструментов?

Просто вот уже столько сижу с програмкой которую хочу написать в виде тренеровки но видно знаний катострофически мало так, как програмка то работает но вот когда оставляеш поля ввода "Edit1" и "Edit2" пустыми или пишеш текст то возникает критическая ошибка и програмка виснет



procedure TForm1.ZimLezaClick(Sender: TObject);


begin

Edit1.Enabled:= ZimLeza.Checked;
Edit3.Enabled:= ZimLeza.Checked;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x1: real;
x2: integer;
y: real;

begin

x1:= StrToInt(Edit1.Text); x2:=StrToInt(Edit2.Text);
y:= StrToInt(Edit1.Text);

Edit3.Text:= floattostr(Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit2.text)));

label5.Caption :='Вес: '+ Edit3.Text+ #13 + 'Кл.раз: '+ Edit2.Text;

end;

end.