Переместиться в конец файла |
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