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

Previous  Top  Next

    
 

 

 

Code:

{ прыгаем в конец (eof) }

procedure gotoeof (f : file);

begin

{ перемещаемся в начало }

seek (f, 0);

{ перемещаемся вперед на "x" количество байт,

   в нашем случае это размер файла! }

seek (f, filesize(f));

end; {gotoeof}

 

©Drkb::03132

       

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