Все игры
Музыка
Видео
Игры
Группы

Откройте свой Мир!

Регистрация
i
Мы применяем рекомендательные технологии
О группе Участники Фото Видео Музыка Обсуждения
Запись
·
Егор Т,
17-06-2008 14:36
(ссылка)
Это спам

Работа с файлами в Delphi 7

настроение:После вирусной атаки
хочется:отладить программу
слушаю:отстой

Нравится

Вы не можете комментировать, т.к. не авторизованы.


Павел Михайлов      17-06-2008 21:49 (ссылка)
Re: Работа с файлами в Delphi 7
Error name:
    ERROR_SHARING_VIOLATION
Error value:
    0x00000020 (32)
Description:
    Процесс не может получить доступ к файлу,
    так как этот файл занят другим процессом.


  if Buff=TitleEdit.Text then
    begin //в базе есть такой элемент, заменяем его

      ShowMessage('Элемент будет заменен!');
      r:=true;
      DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
      DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
      closeFile(f); // перед выходом из процедуры закроем файл!

      exit;
    end;
Александр Митяев      19-06-2008 06:24 (ссылка)
Re: Работа с файлами в Delphi 7
Попробуй при использовании ReWrite и ReSet указывать размер записи, т.е. писать rewrite(f, 1) и reset(f, 1).


Загрузка