Save dialog

[skaven]

Hi steve, habe das mit dem tof nicht verstanden,

was muß ich wo ändern?

Hab mal das Programm etwas abgeändert, aber wo muß ich da jetzt meine laufvariable einfügen, in der ich immer weider neue werte bekomme, und die ich hintereinander in einer datei speichern will.

Delphi-Quellcode:

 begin
   AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);   { Datensatzgröße = 1 }
  if SaveDialog1.Execute then           { Dialog zum Speichern anzeigen }
    begin
     AssignFile(ToF, SaveDialog1.FileName);   { Ausgabedatei öffnen }

   Rewrite(ToF, 1);   { Datensatzgröße = 1 }
     Canvas.TextOut(10, 10, 'Kopieren von ' + IntToStr(FileSize(FromF))
      + ' Byte...');
     repeat
       BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
       BlockWrite(ToF, Buf, NumRead, NumWritten);
     until (NumRead = 0) or (NumWritten <> NumRead);
       CloseFile(FromF);
       CloseFile(ToF);
   end;