[Ross]

У меня такая же фигня.
Когда запускается моё приложение ищется файл, если файл найден, то читает от туда и потом удаляет его (файл), а при выходе должен сохранять в файл. до определённого момент всё работало нормально, но потом всё отрубило, ну ни как не могу справиться с этой ошибкой. Я попробовал вот такую вещь:

Код:

    if FileExists(GetCurrentDir + '\' + FileUs) = true then DeleteFile(GetCurrentDir + '\' + FileUs);
    AssignFile(UsersFile, GetCurrentDir + '\' + FileUs);
    {$I-}
    Rewrite(UsersFile);
    {$I+}
    if IOResult <> 0 then
      begin
        CloseFile(UsersFile);
        AssignFile(UsersFile, GetCurrentDir + '\' + FileUs);
        Reset(UsersFile);
        Append(UsersFile);

Файл то он создаёт, но отказывается писать в него, почему так?