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