19.09.2009, 14:01
|
|
Новичок
|
|
Регистрация: 14.04.2009
Сообщения: 64
Репутация: 20
|
|
----------ВОТ ТАК (ОЧЕНЬ БЫСТРО)----------
Цитата:
Сообщение от 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: Пользуемся тегами!
__________________
|