Определить что в названии/тексте - цифры

[unreal2x]

Помогите проверкой...

на проверку что в "тексте" только цифры.

Как пример:
001214954544 - все цифры.
fМЛЬdf95454т - не все цифры))

[macomics]

проходите в цикле по всем символам и проверяете на попадание в диапазон от '0' до '9'. При выходе из диапазона хотя бы один раз прерываете цикл и возвращаете false, при нормальном окончании цикла возвращаете true.

[mihаli4]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
try
Label1.Caption:='Все цифры';
i:=StrToInt(Edit1.Text);
except
Label1.Caption:='Есть буквы';
end;
end;

[macomics]

При минус забыл. Это если в тексте не более 9 цифр. Иначе тоже будет ошибка - переполнение типа integer

[FaTaL]

Цикл всё таки надежнее )))

[unreal2x]

Использовал TryStrToFloat... true/false то, что надо))

[FaTaL]

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

Использовал TryStrToFloat... true/false то, что надо))

А ты проверял на большом кол-ве циферок?

[type_Oleg]

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

А ты проверял на большом кол-ве циферок?

Да, могут быть проблемы. Ибо Integer это только -2147483648..2147483647.
Тогда - или цикл по одному символу ( опреация in ), или скармливать IntToStr по 9 символов , что тоже цикл.

[newerow1989]

var i: integer;
    s: string;
    flag: boolean;
begin
   Write('s = '); Readln(s);
   flag:=true;
   for i:=1 to Length(s) do
      if not (s[i] in ['0'..'9']) then
      begin
         flag:=false;
         Break;
      end;
   if flag then
      Writeln('Vse cifry') else
      Writeln('Ne vse cifry');
   Readln;
end.