Komisches Verhalten...
In einem Programm werden regelmässig nach schliessen eines Settings - Dialoges
Daten weggespeichert.
Die Prüfung ob File offen oder existiert schlägt nicht an.
Nur die Rewrite -
Exception kommt mit einem "EIOnOutError, Datei nicht gefunden.." und ein 0Kb File bleibt.
Mal geht's X mal gut, dann wieder nicht.
Delphi-Quellcode:
function CDevice.storeSettings(name: string) : integer;
var i:integer;
f: file of TSettingsFile;
s: TSettingsFile;
begin
storeSettings := -1;
try
if IsFileInUse (name) then
Begin
MessageDlg('File '+name+' is open !!', mtInformation, [mbOk], 0);
end;
AssignFile(f, name);
if not fileexists (name) then
Begin
MessageDlg(' Gibts nicht !!', mtInformation, [mbOk], 0);
end;
rewrite(f);
except
exit;
end;
//...diverses Speichern
Closefile(f)
Suche seit Tagen einen sicher eigenen Fehler und sehe meinen eigenen Blödsinn nicht.
Kann es mit der typisierten Datei zusammen hängen ?