CopyFiles i TP7

Jeg mener at du kan gøre noget lignende det her:
(Jeg kigger på det når jeg kommer hjem - jeg har en TP bog hvor jeg er sikker på at det står i)

var
  FromFile, ToFile: file;
  NumRead, NumWritten: Word;
  buf: array[1..4096] of char;
begin
  AssignFile(FromFile, 'c:\Fil1.txt');
  Reset(FromFile);
  AssignFile(ToFile,'c:\Fil2.txt');
  Rewrite(ToFile);
  repeat
    BlockRead(FromFile, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToFile, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromFile);
  CloseFile(ToFile);
end;

Den er vist god nok, men BlockWrite har kun 3 parametre:

BlockWrite(ToFile, Buf, NumRead);

og du skal så kun bruge:

until NumRead = 0;

PS. closefile hedder bare close, og assignfile assign dvs:

Const
  buflen = 4096;
var
  FromFile, ToFile: file;
  NumRead: Word;
  buf: array[1..buflen] of char;
begin
  Assign(FromFile, 'c:\Fil1.txt');
  Reset(FromFile);
  Assign(ToFile,'c:\Fil2.txt');
  Rewrite(ToFile);
  repeat
    BlockRead(FromFile, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToFile, Buf, NumRead);
  until NumRead = 0;
  Close(FromFile);
  Close(ToFile);
end;

Jeg vil kopier filer i Turbo Pascal. Men jeg kan ikke se at den kode som du kommer med skulle kopier filer.

Den læser en fil og gemmer den med et nyt navn - det må da være at kopiere. (fra Fil1 til Fil2).
Det skulle iøvrigt være hurtigere end at bruge standardkald.

Okay, det kunne jeg bare ikke lige se. Men nu kan jeg. Prøver det..