Hallo,
es wäre dann vielleicht hilfreich den ErrorCode von IOResult zu erfahren.
Habe deswegen einige Änderungen im Code vorgenommen.
Delphi-Quellcode:
function TStrIniFile.SaveFile : boolean;
var
f: TextFile;
i: integer;
errorCode : Integer;
begin
RESULT:=false;
AssignFile(f,FileName);
{$I-} Rewrite(f); {$I+}
errorCode := IOResult;
if errorCode=0 then
begin
RESULT:=true;
for i:=0 to Count-1 do
begin
if i>0 then
if posIS[i]<0 then writeln(f);
writeln(f,item[i]);
end;
closeFile(f);
end;
sleep(10);
*** if not RESULT then ***
MessageDlg(application.ExeName+': '+FileName+' is not ready for WRITE ['+sysErrorMessage(errorCode)+'].',mtWarning,[mbOk],0);
end;
Grüße
Klaus