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;