[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: Пользуемся тегами!