Как узнать состоит ли строка из одных числовых символов

[DarkEvil]

Собственно вопрос:
Как узнать состоит ли строка из одных числовых символов

Тоесть

string := '784932432';

[Пепел Феникса]

function CheckStringOnNumbers(S:string):boolean;
var i:integer;
begin
 Result:=true;
 i:=1
 while i<=Length(s) do
  begin
   if not(s[i] in ['0','9']) then begin Result:= false; exit; end;
   inc(i);
  end;
end;

вроде не ошибся=)

исправил, спасибо to spamer

[Mixasik]

А если так?

function is_numeric( str : string) : boolean;
var i : longword;
Result := true;
try 
i := strtoint(str);
except
Result := false;
end;

Правда если строка не огромная...

[spamer]

Пепел Феникса в твоей функции не совместимость типов получается.
Может вот так нада было

   if not(s[i] in ['0'..'9']) then begin Result:= false; exit; end;

[Cold_Night]

function OnlyNumbers(S: string): Boolean;
var I: Cardinal;
begin
  for I:=1 to Length(S) do
  begin
    if not (S[I] in ['0'..'9']) then
    begin
    Result:=False;
    Break;
    end
     else Result:=True;
  end;
end;

Возвратит True, если в строке только числа

[Пепел Феникса]

spamer, точно
пропустил кавычки...каюсь=)

[TAVulator]

и с For было бы разумней:

function CheckStringOnNumbers(S:string):boolean;
var i:integer;
begin
 Result:=true;
 For i:=1 to length(s) do
   if not(s[i] in ['0'..'9']) then begin Result:= false; break; end;
end;

[DarkEvil]

Всем спасиба идею понял, буду крутить, хотя сам думал в сторону цикла
но решил спросить так как по думал что цикл не есть круто

[Gorychev]

Проще воспользоваться функцией TryStrToInt(), пример:

var i: integer;
.....
i := 0;
if TryStrToInt(string, i) then
  успех else
  неудача;

В переменной i - храниться полученное числовое значение строки.

[Serge_Bliznykov]

Gorychev,
1) такой вариант уже был предложен (посмотрите на предыдущей странице...
2) подобный подход, строго говоря - НЕ РЕШАЕТ поставленную задачу.
поясняю.
вот строчка: '98787919191929394999999999999999'
она отвечает условию задачи ("состоит ли строка из одних числовых символов"). Ответ - ДА, отвечает.
Ваш код не сможет подобное обработать.

Предложенные решения с циклом эффективны и просты.