МАссивы

[Епгений]

Сообщение от Сtrl

Так вы же в случае, если поле пустое, выводите сообщение на экран, а потом продолжаете работу. Я бы на вашем месте TMaskEdit использовал.

так что ли:

procedure TForm1.Button1Click(Sender: TObject);
begin
if MaskEdit1.Text = '' then  begin
ShowMessage('Введите данные');
end;
begin
num:=strtoint(MaskEdit1.Text);
 if num > enigm then ShowMessage('Ваше число больше моего');
 if num < enigm then ShowMessage('Ваше число меньше моего');
 if num = enigm then  Form2.show ;
 end;
 end;

не работает т.е ошибка выскакивает

[Stilet]

т.е ошибка выскакивает

Буквами невидимками в 25-м кадре?

[Епгений]

Хуа парни я Доперь )))
ВОт:

begin
if MaskEdit1.Text = '' then
begin
MaskEdit1.SetFocus;
ShowMessage('Введите данные');
Exit;//процедуру обработки нажатия кнопки нужно прервать. Крута да ))
 end;

Пользуйтесь ))) Спаибо за внимание )))
все работает

[Сtrl]

Не в этом суть. Просто в объекте класса TMaskEdit устанавливаете маску на ввод исключительно чисел, и тогда никаких проверок вообще не понадобится.