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

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

 seek (f, filesize(f));
end; {gotoeof}


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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...