Fil-halløj

hov jeg kom lige til at vrøvle. Altså efter at programmet har kørt, skal den oprindelige img2.jpg være slettet og img1 skal stadig ligge i den første mappe.

og med at det skulle kunne køres fra en diskette mente jeg, at det skulle kunne køres fra en startdiskette :-)

se på copyfile og i hjælpen og deletefile.

/ZIRON

¨på http://borrisholt.com under file IO har jeg et lille projekt der hedder filehandling .. Det kan alt det der...

Jens B

procedure TForm1.FormCreate(Sender: TObject);
var
  FromFile, ToFile: file;
  NumRead, NumWritten: Word;
  buf: array[1..4096] of char;
begin
  FileMode := 0;
  AssignFile(FromFile, \'c:\\prg\\img1.jpg\');
  Reset(FromFile, 1);
  showmessage(\'Kopierer \'+IntToStr(Filesize(FromFile))+\' bytes.\');
  FileMode := 2;
  AssignFile(ToFile,\'c:\\mappe2\\img2.jpg\');
  if FileExists(\'c:\\mappe2\\img2.jpg\') then
    Reset(ToFile, 1)
  else
    Rewrite(ToFile, 1);
  repeat
    BlockRead(FromFile, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToFile, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  System.CloseFile(FromFile);
  System.CloseFile(ToFile);
  showmessage(\'Kopiering afsluttet\');
  Application.terminate;
end;