Проверяем, состоит ли строка из цифр.

В программировании часто встречаются задачи на определение цифр в строке.
Наша задача определить, состоит ли строка только из цифр.


Для этого мы напишем небольшую фунцию:

function IsStrANumber(const S: string): Boolean; 
var 
  P: PChar; 
begin 
  P      := PChar(S); 
  Result := False; 
  while P^ <> #0 do 
  begin 
    if not (P^ in ['0'..'9']) then Exit; 
    Inc(P); 
  end; 
  Result := True; 
end;

В параметрах надо указывать переменную со строкой для проверки. Если строка состоит из цифр, то результат - true. В противном случае - false.

Теперь достаточно объявить эту функцию, скопировать приведенный выше код и начать использовать:)

Надеюсь, из-за написания программ, выполнения заказов у вас нет проблем со сном. Однако я все равно советую почитать статью о борьбе с бессоницей:)

Удачи! SourceExpert.Blogspot.com