Переместиться в конец файла
Falk0ner, вс, 06/07/2008 - 15:34.
{ прыгаем в конец (eof) }
procedure gotoeof (f : file);
begin
{ перемещаемся в начало }
seek (f, 0);
{ перемещаемся вперед на "x" количество байт,
в нашем случае это размер файла! }
seek (f, filesize(f));
end; {gotoeof}
procedure gotoeof (f : file);
begin
{ перемещаемся в начало }
seek (f, 0);
{ перемещаемся вперед на "x" количество байт,
в нашем случае это размер файла! }
seek (f, filesize(f));
end; {gotoeof}
Взято с http://delphiworld.narod.ru
Отправить комментарий