[chugusov]

Как с большого (до 10 Мб) бинарного файла прочесть последние 700 байтов. Разработаный мною способ (ниже) слишком медленый.

Код:

var
i:integer;
c:char;
s:widestring;
attrfile:tsearchrec;
begin
    assignfile(f,AttrFile.Name);
    reset(f);
    i:=0;    s:='';
    while not eof(f) do
    begin
      read(f,c);
      inc(i);
      if i>AttrFile.Size-700 then s:=s+c;
    end;
    closefile(f);
end;

Admin: Пользуемся тегами!

[Alexo]

Создай обьект типа TFileStream
и там FileStream.Position := FileStream - 700;

Вроде так давноне работал могу и ошибаться)

[-sanya-]

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

Как с большого (до 10 Мб) бинарного файла прочесть последние 700 байтов. Разработаный мною способ (ниже) слишком медленый.

Код:

var
i:integer;
c:char;
s:widestring;
attrfile:tsearchrec;
begin
    assignfile(f,AttrFile.Name);
    reset(f);
    i:=0;    s:='';
    while not eof(f) do
    begin
      read(f,c);
      inc(i);
      if i>AttrFile.Size-700 then s:=s+c;
    end;
    closefile(f);
end;

Admin: Пользуемся тегами!

ВОТ ТАК (ОЧЕНЬ БЫСТРО)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  NFile: TFileStream;
  Buf: array[0 ..700] of Char;//Символьная переменная пишем от 0 до 700 символов
begin
NFile := TFileStream.Create('C:\123.txt', fmOpenRead);//открываем файл
NFile.Position := NFile.Size-700;//переходим на позицию конца файла минус 700 байт
NFile.ReadBuffer(buf,700);//переводим последние 700 байт в переменную buf
memo1.lines.text := buf;//записываем в мемо
buf := '';//отчищаем переменную buf
freeandnil(NFile);//Закрываем файл
end;

end. 

Admin: Пользуемся тегами!