Error Code 183 beim Datei überschreiben mit Rewrite.

[turboPASCAL]

Zitat:

Du musst IOResult verwenden, um Fehlercodes zu erhalten

Würde ich auch mal meinen.

Delphi-Quellcode:

function WriteData(filename : String; data: String; Mode : TMode): Boolean;
var
  f: TextFile;
  IOErr: integer;
begin
  AssignFile(f, filename);

  {$IOChecks OFF}
  if FileExists(filename) and (Mode = a)
    then Append(f)
    else Rewrite(f);
  {$IOCHECKS ON}
  IOErr := IOResult;

  if IOErr = 0 then
  begin
    Writeln(f, data);
  end else
    ShowMessage('Ein Fehler ist aufgetreten ... ... Nr.: ' + IntToStr(IOErr));

  CloseFile(f);

  Result := BOOLEAN(IOErr = 0);
end;

( Ungetestet )