Ошибка в функции подсчета строк в текстовом файле Опции

[Maxim]

Привет всем участникам этого полезнейшего форума!=)
Я новичек в программировании и недавно столкнулся с такой проблемой.
Нужна была функция для подсчета строк в текстовом файле и я решил сделать ее так:
{====================================================}
function getlines(fil:string):longint;
var
f:text;
tmp:string;
overfl:boolean;
i:longint;
begin
overfl:=false;
i:=0;
assign(F,fil);
reset(f);
while not eof(f) do
begin
readln(f,tmp);
inc(i);
if i=2147483647 then begin overfl:=true; break; end;
end;
if overfl=false then getlines:=i else getlines:=-1;
end;
{=====================================================}
Функция возыращает -1 если превышен диапазон longint.
Но вот беда, когда я попытался посчитать строки в  большом файле(там вроде было около 3000000 строк), функция возвратила 1(я ни чего не путаю...да да не -1, а именно 1 без минуса). Я так и не понял, почему. Может вы поможете?=)

P.S: И еще... существует ли в Паскале целый тип данных превосходящий по диапазону Longint?

[Maxim]

Глухо...

[___ALex___]

используй Extended в качестве возвращаемого значения и не парься

[Maxim]

Всё, уже ни чего не надо, я врубился, в чем тут дело=)

[Ivs]

Всё, уже ни чего не надо, я врубился, в чем тут дело=)

В чем? поделись с народом.

[ВЫ]

break; - не нужен

[Maxim]

Короче результат нужно было вывести в файл, а преобразование из Longint в String я делал так:

function IntToStr(I: integer): String;
var
 S: string[11];
begin
 Str(I, S);
 IntToStr := S;
end;

Поставил в аргументе объявленной функции Longint вместо Integer, и  все заработало=)