Как проверить Edit, введен текст или цифры?

← →
Zloy © (2004-12-07 15:46) [0]

Я вот думаю, что должны быть в дельфи встроенные функции. Конечно можно создать с помощью множества проверить содержимое, но ведь есть наверное более простые способы.

← →
Александр Иванов © (2004-12-07 16:05) [1]

try
value:=StrToInt(Edit1.Text);
Result:=True;
except
on EConvertError do Result:=False;
end;

есть еще функция, но запамятовал название (что-то типа TryConvert...).

← →
TUser © (2004-12-07 16:06) [2]

Есть еще TryStrToInt

← →
Bobby Digital © (2004-12-07 20:15) [3]

CODE>
function _type (s: string) : integer;
var
i:integer;
f: double;
begin
if tryStrToInt (s,i) then
result:=0
else if tryStrToFloat(s,f) then
result:=1
else
result:=-1;
end;<

Val

Как проверить Edit, введен текст или цифры? Найти похожие ветки