Programowanie w języku Delphi

FilePos

  • 2010-10-31 18:27
  • 0 komentarzy
  • 1309 odsłon
  • Oceń ten tekst jako pierwszy
FilePos
Moduł: System

function FilePos(var F): Longint;

Funkcja pobiera aktualne położenie pliku. Parametr F musi wskazywać na uprzednio otwarty plik amorficzny lub typowany.

Przykład przesunięcia pozycji w pliku na jego środek, a następnie - odczytanie aktualnego położenia:

program Foo;
 
{$APPTYPE CONSOLE}
 
var
  F : File;
  Size : Integer;
begin
  AssignFile(F, 'C:\Foo.exe');
  try
    Reset(F);
 
    Size := FileSize(F);
 
    Writeln('Rozmiar pliku: ', Size);
    Writeln('Przesuwam na środek...');
 
    Seek(F, Size div 2);
 
    Writeln('Aktualna pozycja: ', FilePos(F));
 
  finally
    CloseFile(F);
  end;
  Readln;
end.


Zobacz też: