Как с большого (до 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: Пользуемся тегами!