как узнать что введено а Edit1 цифры или нет

[doncova1]

как узнать что введено а Edit1 цифры или нет
знаю в Си есть функции IsDigit,IsAlpha, а в delphi?

[Alar]

разделить на 1. есл не разделиться, то значит буквы. ))

[Virtson]

можно и так
только делить внутри
try
except
end

[doncova1]

try StrToInt(a)/1 except k:=1; end;
выдает ошибку
Statement expected, but expression of type "Extended" found

[AVer]

Готовая функция:

Function Numb(A:String):Boolean;
Var N: Set of Char;
      I:Integer;
      B:Boolean;
Begin
B:=True;
N:=['0','1','2','3','4','5','6','7','8','9'];
For I:=1 To Length(A) Do
If not (A[I] In N) Then B:=False;
Numb:=B;
End;

[psyke]

Numb:=false;
For I:=1 To Length(A) Do
If not (ord(A[i]) In [48..57]) Then
break else
Numb:=true;
End;

такой вариант ещё

[Virtson]

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

try StrToInt(a)/1 except k:=1; end;
выдает ошибку
Statement expected, but expression of type "Extended" found

наверно, а у Вас вещественная ..
это все-таки крайний способ, конечно

[psyke]

try StrToInt(a)/1 except k:=1; end;

а вот эта инструкция вообще не допустима

try somevar:=round(StrToInt(a)/1) except k:=1; end;

вот эта ещё более мение

[Drop]

Есть процедура Val. Она определяет, что введено и возвращает значение в переменную соответствующего типа.

[Квэнди]

1. strtointdef
2. onkeypress