Kopiowanie dowolnych plik≤w

Strona g│≤wna

Kopiowanie dowolnych plik≤w

Oto prosty algorytm dziΩki kt≤remu mo┐esz zaobserwowaµ proces kopiowania dowolnych plik≤w bez wykorzystania ┐adnych gotowych funkcji. Taka umiejΩtno╢µ zapewne Ci siΩ przyda.

Oto kod:

var
  plik1,plik2:File;
  rekord:Integer;
  Buf:array[1..4096] of byte;
begin
  AssignFile(plik1,'kopiowany.xxx'); {kojarzymy zmienn▒ z plikiem}
  AssignFile(plik2,'wklejony.xxx'); {kojarzymy zmienn▒ z plikiem}
  Reset(plik1,1);
{tworzymy plik, do ktorego zapiszemy dane i ustawiamy sie
na poczatku}
  Rewrite(plik2, 1); 
  while not Eof(plik1) do
  begin
    BlockRead(plik1,buf,sizeof(buf),rekord); {czytamy rekord}
    BlockWrite(plik2,buf,sizeof(buf),rekord); {wpisujemy rekord}
  end; 
  Closefile(plik1); {zamykamy plik}
  CloseFile(plik2); [zamykamy plik}
end;