Функция определить цифра или нет.

[dx+]

Вобщемто нужен сабж если такой существует.
Или самому писать?

[_Dmitry]

try
  a:=StrToInt(S);
except
  //S не цифра
end;

другой вариант

val(S,a,cod);
if cod <> 0 then //S не цифра

здесь

  S: string;
  a,cod: integer;

[dx+]

Спасибо.
еще вопросик: у меня винда 98 все ОК , а у некоторых ХР при вставке в ЕДИТ вместо одного пробела ставит еще и палку.
Сам не видел мне сказали. Чего это так?

[_Dmitry]

Видимо руки кривые.
Что вставишь, то и будет.

[dx+]

может быть, пообщавшись немного с Юзерами приходишь к ужасным выводам

[apromix]

function IsNumber (const s: string): boolean;
var
   i, l: integer;
begin
     result := FALSE;
     l := length (s);

     for i := 1 to l do
         if not (s[i] in ['0'..'9']) then
            exit;

     result := true;
end;

[dx+]

а если число не всегда integer , а может попасться real ?

[AlexandrSid]

a:=StrToFloat(S);

[Stilet]

а если число не всегда integer , а может попасться real ?

TryStrToFloat