Выяснить, содержит ли текстовая строка исключительно цифры и больше никаких символов.
function IsStNumbers(st: string): boolean;
| Параметр | Тип | Значение | 
|---|---|---|
| st | string | оригинальная строка. | 
Возвращает true, если все символы строки — цифры от 0 до 9.
const
  sOnlyNumbers = '3495760054';
  sString      = ' -784521az';
procedure TestString(s: string);
begin
  if IsStNumbers(s) then mLogScript('string "' + s + '" - number', '')
    else mLogScript('string "' + s + '" - not number', '');
end;
begin
  TestString(sString);
  TestString(sOnlyNumbers);
end.[19:42:39] (Log "IsStNumbers"): string " -784521az" - not number
[19:42:39] (Log "IsStNumbers"): string "3495760054" - number
[19:42:39] (Run "IsStNumbers"): Время выполнения скрипта: 3 мс
[19:42:39] (Run "IsStNumbers"): Скрипт выполнен успешно.