Проверка введенных данных на корректность

При нажатии кнопки СТАРТ, прежде чем запустить расчет, необходимо проверить введенные данные на корректность. На рис. 3 приведен фрагмент формы с входными параметрами для моделирования случайных чисел с Бета распределением.

Рис. 3. Поля ввода параметров расчета

В этом случае для проверки введенных числовых данных на корректность может быть использован следующий код:

if(StrToFloat(Alpha.Text)<=0) or (StrToFloat(Alpha.Text)>500) then

begin

ShowMessage('Ограничение: 0< Alpha <= 500');

exit;

end;

if(StrToFloat(Beta.Text)<=0) or (StrToFloat(Beta.Text)>500) then

begin

ShowMessage('Ограничение: 0< Beta <= 500');

exit;

end;