[Vigor]

Нужно сделать проверку, если в Edit введено что-либо кроме положительного числа то выйти из программы, как это можно сделать?

[alikoder]

как понять положительное число? с плюсом, что ли +1 +2 и тд?

[Vigor]

Да, число должно быть не отрицательное и не равное нулю, остальные подходят. Если вводятся какие-то символы, в том числе и пробел нужно выйти из программы.

[Dimanus]

По поводу числа, там же всё просто.
if StrToInt(Edit.Text) > 0 then "Выйти из программы";

А по поводу символов если они не нужны то можно их исключить, все кроме числовый по событию KeyPress или какие то запрещать а какие то разрашать, там же способы реализации разные.

[White_Horse]

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

Нужно сделать проверку, если в Edit введено что-либо кроме положительного числа то выйти из программы, как это можно сделать?

Обработай событие OnKeyPress у своего Edita'a , как пример :

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['1'..'9'] then //запрет ввода чисел 1 - 9 
    begin
      Key:=#0;
      Exit;//Close
    end;
end;

[Dimanus]

Я чего то не пойму, ему же нужен ввод положительных чисел, а не их запрет ( обращение к White Horse ).

Можно написать такой способ :

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #32 then "Выйти";// Если нажат пробел то exit

case key of
'0'..'9':
Begin
IF POS(DecimalSeparator, Edit.Text) <> 0 THEN Key:=Chr(0);
end;
#8:; // разрещён backspase
// #97..#122:; // разрешён ввод английских букв
else Key:=Chr(0); // или Form.Close;
end;
end;

[White_Horse]

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

Я чего то не пойму, ему же нужен ввод положительных чисел, а не их запрет ( обращение к White Horse ).

Ну так их проще совсем запретить )))

[The Shadow]

Ну или так:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
try
if StrToInt(Edit1.Text) <= 0 then 
Application.Terminate;
except
Application.Terminate;
end;
end;

[s0Creator]

PHP код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // перечисляешь все допустимые символы если целое то
  // if not (Key in ['0'..'9','+']) then Application.Terminate;
  // если с запятой и мантисой
  if not (Key in ['0'..'9','+',DecimalSeparator,'e','E']) then Application.Terminate;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
// если может быть с запятой
if StrToFloatDef(Edit1.Text,0) <= 0 then Application.Terminate;
// если толь целое
// if StrToIntDef(Edit1.Text,0) <= 0 then Application.Terminate;
end; 


[Кодер]

Ставь условие значения ЭдитБокса > 0 ничего сложного

[Vigor]

Сообщение от Неподарок

Ставь условие значения ЭдитБокса > 0 ничего сложного

Да это понятно, я не знал как символы запретить.
PS Ответившим спасибо

[Кодер]

Запрещай символы через запрет нажатия клавиш..выше читай!

Тему можно считать закрытой думаю)