I/O-Fehler-998

[Nicodius]

leider hat mir das jetzt überhaupt nix gebracht hab das buf : talles gemacht sattt of array of char aber nix geholfen gleicher fehler

ja ich weiß dass fehlerdrinnen sind weil ich mit dem ganzen zeugs noch nie gearbeitet habe und einfach vermutet habe mit der delphihilfe das beispiel genommen und zerlegt hab


das save ding is nur mal zum vorbeugen nacher wird das im extractfilepath(paramstr(0)) + 'fafile.dat' gespeichert

kanns vl sein dass ich zuerst n createfile machen muss?



hier is das beispiel aus der delphi hilfe da wird in buf übrigens auch nix reingeschrieben

Delphi-Quellcode:

var

  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then             { Dialog zum Dateiöffnen anzeigen }
  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;
  end;
end;

lg nico