Проблема с программой в Delphi.

[mixa631]

Помогите, пожалуйста. Нужно написать программу, определяющую треугольник, квадрат, пятиугольник, прямоугольник в зависимости от введенных значений сторон или углов.
Я уже пытался кое-как сделать, но получилось не без ошибок.
ссылка на программу http://ifolder.ru/23983226 (так же во вложенном)
скрин ошибок

[grafgrial]

проблема должна видется вами, на скрине ошибок видно что при втором вы вели только запятую (решение: проверка на ввод цифр), а вторая ошибка в том что вы указали значение как integer (решение: укажите как real)

[mixa631]

благодарю, но не подскажите, код на проверку на ввод цифр?

[grafgrial]

procedure TForm1.TextBoxKeyPress(Sender: TObject; var Key: Char);
begin //процедура проверки на ввод данных
if not (Key in 8,'0'..'9','.',',',DecimalSeparator) then Key:=#0;
if Key='.' then Key:=',';
{if Key=#0 then key:='0';
}
end;

[ZuBy]

установи Delphi 2009+, там есть в TEdit'е свойство OnlyNumbers := true;