Rewrite(f) findet File nicht...

[Sir Rufo]

Warum so kompliziert? Kurz, knapp, erläuternd, auswertbar, ...

Delphi-Quellcode:

if not FileExists( name ) then
  raise EInOutError.CreateFmt( 'File %s does not exists!', [name] );
if IsFileInUse( name ) then
  raise EInOutError.CreateFmt( 'File %s is open!', [name] );

AssignFile( f, name );
RewriteFile( f );

Und im Ganzen

Delphi-Quellcode:

function CDevice.storeSettings(name: string): Integer;
var i:integer;
    f: file of TSettingsFile;
    s: TSettingsFile;
begin
  if not FileExists( name ) then
    raise EInOutError.CreateFmt( 'File %s does not exists!', [name] );
  if IsFileInUse( name ) then
    raise EInOutError.CreateFmt( 'File %s is open!', [name] );
  AssignFile(f, name);
  try
    rewrite(f);
    //...diverses Speichern
    Result := ...
  finally
    Closefile(f)
  end;
end;