Переместиться в конец файла

Материал из DRKB

Переместиться в конец файла[править | править код]

{ прыгаем в конец (eof) }
procedure GotoEof(f: file);
begin
  { перемещаемся в начало }
  Seek(f, 0);
  { перемещаемся вперед на "x" количество байт, в нашем случае это размер файла! }
  Seek(f, FileSize(f));
end;



Source: Взято с http://delphiworld.narod.ru
ID: 03132