Rewrite(f) findet File nicht...

[calibra301]

Hi,

danke fürs schnelle Feedback. Habs mal so weit umgebaut.
Des weiteren Breakpoints beim CloseFile und bei jedem Assignfile was das Projekt hat
gesetzt um sicher zu gehen das das File nicht an anderer Stelle geöffnet wird.

Das erste mal läuft sauber durch , auch das CloseFile wird angesprungen.
Beim nächstem mal geht's in das "File is open.."
Was nun tun...nach Filenamen Zwangsschliessen ??

Delphi-Quellcode:

function  CDevice.storerSettings(name: string) : integer;
var i:integer;
    f: file of TPSettingsFile;
    s: TSettingsFile;
begin
  storerSettings := -1;

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

  try
   s.magic := $537916;
   //...usw.
   write(f, s);

  except
   exit;
 end;

 Closefile(f);
 storeSettings := 0;
end;

Danke und schönen Sonntach
Cali