Проверка на число, Необходимо проверить трёх значный символ, число ли это Опции

[Zevs5]

Необходимо проверить трёх значный символ, число ли это

Не совсем Паскалевский вопрос потому что использую Делфи но принцып то один.
Нужно проверить введённый символ (однозначный, двузначный либо трех значный) на то, является ли он числом и потом если это число занести его в числовой массив.

Потомучто если я конечно не ошибаюсь если объявлен числовой массив то строковое значение туда не запихнёшь.

[volvo]

function TryStrToInt(const S: string; out Value: Integer): Boolean;

Описана в SysUtils ... Что характерно - ее реализация:

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

(я же говорил, что Val не подведет... )