Проверка строки->числа на 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.