Проверка строки->числа на Max значение Опции

[>hamka<]

Требуется проверить число на max значение longint'а (т.е. число не должно выходить за пределы типа). Но изначально число вводится как строка, и при переводе в число ( если оно > max) происходит "вылет" из программы. Каким образом лучше проверить введенную строчку пользователем на longint? Может алгоритм какой есть? Я пробывала прямо проверять по байтам, но получается какой-то маразм и оч. увеличивается код.

[volvo]

Ну, если в строке гарантированно содержатся только символы '0' .. '9', то можно попробовать сделать так:

Код

var s: string;
 is_over: boolean;
begin
 readln(s);

 if length(s) = 9 then
   is_over := (s > '2147483647')
 else is_over := (length(s) > 9);

 { здесь is_over показывает, произойдет ли переполнение }
 writeln('overflow: ', is_over);
end.

[>hamka<]

Дело в том, что в строке может содержаться, что угодно, и цифры, и буквы и другие символы.

[Михаил Густокашин]

тогда можно засовывать в extended и при превышении константы maxlongint ругаться.

[volvo]

Но изначально число вводится как строка, и при переводе в число ( если оно > max) происходит "вылет" из программы.

Тогда вопрос поставлен неправильно... И ничего другого не остается, как проверять строку посимвольно... Как только встречаем запрещенный символ - значит ошибка, а уже потом, когда ТОЛЬКО цифры в строке - проверяем на переполнение.

Хотя можно написать свою процедуру ввода строки, в которой просто не реагировать на запрещенные символы...