Wenn du schon merkst, dass das File in Benutzung ist, dann darft du nicht einfach weitermachen. Du musst erst warten, bis das File nicht mehr in Benutzung ist.
Delphi-Quellcode:
if IsFileInUse (name) then
Begin
MessageDlg('File '+name+' is open !!', mtInformation, [mbOk], 0);
end;
AssignFile(f, name);
sondern so:
Delphi-Quellcode:
if IsFileInUse (name) then
Begin
MessageDlg('File '+name+' is open !!', mtInformation, [mbOk], 0);
Exit;
end;
und dann später neu versuchen.