Не работает TFileStream.Seek при больших файлах

[type_Oleg]

Пытаюсь использовать Seek при чтении какой-то строки в большом файле ( 26.5 Гб - 327 258 385 строк по 81 символу).
Не работает, когда счетчик байтов более High(Integer), хотя использую Int64.

procedure TForm1.Button23Click(Sender: TObject);
const LEN = 81;
var FS: TFileStream;
   buf:array[0..LEN-1] of Char;
   nb,k:Int64;  // т.к. длинный файл
   i,n:Integer;
begin
 n:=Memo1.Lines.Count;
 if n=0 then Exit;
 FS := TFileStream.Create(DIRDAT+Trim(Edit1.Text)+'.txt', fmOpenRead);
 try
  for i:=0 to n-1 do
   begin
    k:=StrToIntDef(Memo1.Lines.Strings[i],0);  // в Memo1 ввожу нужные номера строк
    nb:=k*LEN;   // чтобы Int64
    Memo3.Lines.Add(IntToStr(FS.Seek(nb,soFromBeginning))); // перемещение и вывод позиции
    Memo4.Lines.Add(IntToStr(FS.Position));  // вывод позиции
    FS.Read(buf,LEN);
    Memo2.Lines.Add(buf);  // вывод самой строки 
   end;
 finally
   FS.Free;
 end;
end;

Функция Seek - именно с Int64 - см.рис "seek"
Если просто строки по порядку , без Seek - то работает, но очень долго, проверял.

// ...
try
   k:=FS.Size div 81;
   FS.Seek(0,soFromBeginning);
   for i:=0 to k-1 do
    begin
     FS.Read(buf,81);  // вот так работает до конца длинного файла
// ...

Как же заставить делать seek на большие значения?

PS Это в Delphi 7, кстати и в Lazarus v1.6.4 - то же самое.

[jillitil]

Чем хорош дельфи? Тем что по Ф7-Ф8 можно пройти пошагово, просмотреть значения переменных, и получить ошибку в читаемом для человека виде.

Generic integer types for 32-bit implementations of Delphi  
Type	Range	Format
Integer	-2147483648..2147483647	signed 32-bit

Fundamental integer types  
Type	Range	Format
Longint	-2147483648..2147483647	signed 32-bit
Int64	-2^63..2^63-1	signed 64-bit

[type_Oleg]

Сообщение от jillitil

пройти пошагово, просмотреть значения переменных,

nb - нормально все. Вот - на рис при вводе 100 000 000

Я нашёл выход-

// ...
 Memo3.Lines.Add(IntToStr(BigSeek(FS,nb)));
// ... функция BigSeek:
function BigSeek(F:TFileStream;n:Int64):Int64;
var k,m,i:Integer;
    dn:Int64;
begin
 dn:=n-F.Position;
 if dn<MaxInt // 2147483647
  then Result:=F.Seek(dn,soFromCurrent) else
   begin
    k:=dn div MaxInt;
    for i:=1 to k do F.Seek(MaxInt,soFromCurrent);
    m:=dn mod MaxInt;
    Result:=F.Seek(m,soFromCurrent);
   end;
end;

Так работает. Может, кто более изящный способ найдет.

[BDA]

В коде из 1 сообщения вместо "soFromBeginning" использовать "SoBeginning" в строке:

Memo3.Lines.Add(IntToStr(FS.Seek(nb,soFromBeginning)));

Чтобы использовалась 64битная версия Seek вместо 32битной.

[type_Oleg]

Сообщение от BDA

вместо "soFromBeginning" использовать "SoBeginning"

Вот спасибо, помогло.