Verschiedene Möglichkeiten zum Verschieben von Dateien

[ichbins]

Kopieren über file-of-byte:

Delphi-Quellcode:

var
  f,t:file of byte;
  buf:array[0..4095] of byte;
  readbytes:integer;
begin
  try begin
    assignfile(f,VON);
    reset(f);
    try begin
      assignfile(t,NACH);
      rewrite(t);
      while not eof(f) do begin
        blockread(f,buf,length(buf),readbytes);
        blockwrite(t,buf,readbytes);
      end;
      closefile(t);
    end except
      try closefile(t) except end;
    end;
    closefile(f);
  end except
    try closefile(f) except end;
  end;
end;