Delphi reset file error

• Up to Parent: System

procedure Reset(var F: File; [ RecSize: Integer]); overload;
procedure Reset(var F: File; [ RecSize: Integer]); overload;

Properties

Description

Opens an existing file.

In Delphi code, Reset opens the existing external file with the name assigned to F using the mode specified by the global FileMode variable. An error results if no existing external file of the given name exists or if the file cannot be opened with the current file mode. If F is already open, it is first closed and then reopened. The current file position is set to the beginning of the file.

Warning: The default value of FileMode is 2 (Read/Write access). If this is not changed to a read-only file mode before calling Reset, attempts to open read-only files fail.

F is a variable of any file type associated with an external file using AssignFile. RecSize is an optional expression that can be specified only if F is an untyped file. If F is an untyped file, RecSize specifies the record size to be used in data transfers. If RecSize is omitted, a default record size of 128 bytes is assumed. If RecSize is equal to or lower than 0, it causes a 106 I/O Error.

If F is assigned an empty name such as AssignFile(F, »), then after the call to Reset, F refers to the standard input file.

If F is a text file, F becomes read-only.

After a call to Reset, Eof(F) is True if the file is empty; otherwise, Eof(F) is False.

If any I/O error happens, Reset closes the file. You do not need to call CloseFile.

Note: {$I+} handles run-time errors using exceptions. When using {$I-}, use IOResult to check for I/O errors.

See Also

• Append

• AssignFile

• CloseFile

• Rewrite

• Truncate

• FileMode

• File Input and Output Support

• Delphi Intrinsic Routines

Code Examples

• FileListBox (Delphi)
• SystemReset (Delphi)
• TOpenDialogTitle (Delphi)

Okay, it’s over a year late, but I’m going to add my comment to this, as it explains why this is happening.

I had the exact same problem in a multi-threaded application with code almost identical to the snippet above and I had critical sections protecting the code.

The problem occurred most readily when one logging operation swiftly followed another. The second operation would fail for the above reason.

I thought it was anti-virus software too, but the error happened on one machine and not the other, where both had Norton 360 installed. The machine with the problem was brand new Windows 7 and the one without was Windows XP. A colleague also had the problem running the system under a virtualised Windows Vista machine with no virus checker installed.

So my question was, «why was this XP machine so different?».

For one, it wasn’t virgin, and that is the answer it seems:

Opportunistic locking and NT caching were turned off. Most (mature) Delphi developers will know that when using BDE, these are turned off in order to maintain DBF and DB file integrity in multi-user situations. These settings were not disabled on the newer machines because we no longer develop for Paradox data files!

Delayed write caching seems to leave a read/write lock on the file until the OS has done its business, which could be several milliseconds later.

So, in my case, the second log event was being blocked by the first.

Okay, I’m not suggesting that you turn off opportunistic locking + NT Caching. One of the major reasons we moved away from BDE was to avoid persuading customers to tinker with such settings. So, there are four practical solutions:

1) To retry for an acceptable period of time, as mentioned by dangph.

2) to open the file when the application loads and hold it open for the full duration of the application. Not so useful if you are running multiple instances of the application.

3) Lazily put a sleep(1) before the logging code and hope that is long enough for the lock to be released. But that risks slowing your system down if you are doing lots of logging.

or 4) Put a try…except..end around your code. But then you are probably guaranteed to miss 100% of the second messages (referring to my case).

Reset

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Удивительно, но факт — запрос «delphi файлы» в Яндексе — это один из самых популярных запросов, касающихся Delphi. Популярнее только «delphi скачать» — видимо ещё не все слышали про такую штуку как Delphi Community Edition. Раз есть в Сети запрос — должен быть и ответ. Посмотрим, что получится в итоге.

Содержание статьи

• Классика работы с файлами в Delphi — ключевое слово File
• Работа с типизированными файлами в Delphi
  • Пример №1. Запись данных в типизированный файл Delphi
  • Пример №2. Добавление записей в типизированный файл Delphi
  • Пример №3. Удаление последних записей типизированного файла в Delphi
• Подведем итог
• Функции и процедуры для работы с типизированными файлами в Delphi/Pascal

Классика работы с файлами в Delphi — ключевое слово File

Этот способ, без преувеличения, можно назвать древнейшим способом работы с файлами в Pascal/Delphi. Однако и он до сих пор используется в работе, особенно, если это, например, лабораторная работа по информатике в школе или ВУЗе.

Для определения файловой переменной в Delphi/Pascal используется ключевое слово File. При этом, мы можем определить как типизированный файл, так и не типизированный, например:

type
  TPerson = record
    Name: string[20];
    Family: string[20];
  end;
 
var UntypedFile: File; //нетипизированный двоичный файл
    TypedFile: File of TPerson;//типизированный файл

Для типизированного фала мы можем задать тип данных фиксированного размера (ShortString, String[20], Integer, Single и так далее), например, мы можем определить такие типизированные файлы:

    IntFile: File of integer;
    StringFile: file of single;
    ShortStringFile: file of ShortString;

Или, как в примере выше использовать для указания типа запись (record), в которой все поля имеют фиксированный размер. Для типизированного файла нельзя указывать типы данных, размер которых не фиксирован, например, вот такие определения файловых переменных недопустимы:

type
  TIntArr = array of integer;
 
var StrFile: file of string; //недопустимо - размер string заранее не известен
    ArrFile: file of TIntArr;//недопустимо - размер динамического массива заранее неизвестен

Более того, даже компилятор Delphi укажет вам на ошибку, сообщив следующее:

[dcc32 Error] E2155 Type ‘string’ needs finalization — not allowed in file type

Определив файловую переменную можно приступать к работе с файлом. Алгоритм работы при этом будет следующим:

1. Ассоциировать файловую переменную с файлом на диске
2. Открыть файл
3. Записать/Прочитать файл
4. Закрыть файл

При этом, для типизированных и не типизированных файлов работа в части чтения/записи несколько различается в плане используемых методов.

Работа с типизированными файлами в Delphi

Рассмотрим несколько примеров работы с типизированными файлами в Delphi.
Для начала, рассмотрим вариант работы с типизированным файлом, например, представленном выше:

type
  TPerson = record
    Name: string[20];
    Family: string[20];
  end;
var TypedFile: File of TPerson;

Пример №1. Запись данных в типизированный файл Delphi

Запишем в наш файл две записи:

program example_1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
type
  TPerson = record
    Name: string[20];
    Family: string[20];
  end;
 
var TypedFile: File of TPerson;
    Person: TPerson;
begin
  //связываем файловую переменную с файлом на диске
  AssignFile(TypedFile,'MyFile.txt');
  //открываем файл для записи
  Rewrite(TypedFile);
  //задаем имя/фамилию человека
  Person.Name:='Иван';
  Person.Family:='Иванов';
  //добавляем запись в файл
  Write(TypedFile, Person);
  //задаем имя/фамилию второго человека
  Person.Name:='Петр';
  Person.Family:='Петров';
  //записываем в файл
  Write(TypedFile, Person);
  //закрываем файл
  CloseFile(TypedFile);
 
  Readln;
end.

Рассмотрим методы, используемые в этом примере:

function AssignFile(var F: File; FileName: String): Integer;

Связывает файловую переменную F с внешним файлом FileName. В качестве второго параметра может задаваться как абсолютный путь к файлу, например, ‘C:/MyFile.txt‘, так и относительный, например, в коде выше файл будет создан рядом с exe-файлом.

procedure Rewrite(var F: File; [ RecSize: Integer]);

Создает новый файл и открывает его. Если внешний файл с таким именем уже существует, он удаляется и на его месте создается новый пустой файл. Если F уже открыт, он сначала закрывается, а затем воссоздается. Текущая позиция файла устанавливается в начале пустого файла.
F — это переменная, связанная с внешним файлом с использованием AssignFile. RecSize — это необязательное выражение, которое можно указывать, только если F является нетипизированным файлом (об этом ниже).

procedure Write([var F: File]; P1; [ ..., PN]); overload;

Используется для записи в типизированный файл. F — файловая переменная, P1..PN — это переменная того же типа, что и тип файла F.

procedure CloseFile(var F: File);

Прекращает связь между файловой переменной и файлом внешнего диска. F — это файловая переменная любого типа. Внешний файл, связанный с F, полностью обновляется, а затем закрывается, освобождая дескриптор файла для повторного использования.

В результате выполнения представленного выше кода, рядом с exe-файлом будет создан новый файл MyFile.txt, содержащий две записи, при этом, каждая запись будет иметь фиксированный размер, вне зависимости от фактических имени/фамилии.

Для того, чтобы в delphi не перезаписывать каждый раз файл, а добавлять в конец файла новые записи необходимо открывать типизированные файлы методом Reset. Рассмотрим пример добавления новых записей в типизированные файлы Delphi.

Пример №2. Добавление записей в типизированный файл Delphi

Рассмотрим такой пример Delphi:

program example_2;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
 
uses
  System.SysUtils;
 
type
  TPerson = record
    Name: string[20];
    Family: string[20];
    Age: integer;
  end;
 
procedure ReadTypedFile;
const
  cStr = '%s %s %d';
var
  F: File of TPerson;
  Person: TPerson;
begin
  AssignFile(F, 'MyFile.txt');
  Reset(F);
  while not Eof(F) do
  begin
    Read(F, Person);
    Writeln(Format(cStr, [Person.Name, Person.Family, Person.Age]));
  end;
end;
 
procedure AppendTypedFile;
var
  F: file of TPerson;
  Person: TPerson;
begin
  AssignFile(F, 'MyFile.txt');
  // открываем файл для записи
  Reset(F);
  Seek(F, FileSize(F));
  // задаем имя/фамилию человека
  Writeln('Введите имя: ');
  Readln(Person.Name);
  Writeln('Введите фамилию: ');
  Readln(Person.Family);
  Writeln('Введите возраст: ');
  Readln(Person.Age);
  // добавляем запись в файл
  Write(F, Person);
  // закрываем файл
  CloseFile(F);
end;
 
var
  TypedFile: File of TPerson;
  Person: TPerson;
  DoAppend: integer;
 
begin
  if not FileExists('MyFile.txt') then
  begin
    AssignFile(TypedFile, 'MyFile.txt');
    // открываем файл для записи
    Rewrite(TypedFile);
    // закрываем файл
    CloseFile(TypedFile);
  end;
 
  // связываем файловую переменную с файлом на диске
  repeat
    Writeln('Добавить в файл запись: 1 - Да; 2 - Нет');
    Readln(DoAppend);
    case DoAppend of
      1: AppendTypedFile;
      2: break;
    end;
  until DoAppend = 0;
  //читаем все записи из типизированного файла
  ReadTypedFile;
  Readln;
end.

Разберемся с тем, что здесь делается. Во-первых, условие:

if not FileExists('MyFile.txt') then

проверяет, существует ли файл на диске. Метод FileExist имеет следующее описание:

function FileExists(const FileName: string; FollowLink: Boolean = True): Boolean;

FileName — имя файла, существование которого необходимо проверить. Второй параметр — FollowLink учитывается только при использовании символической ссылки. То есть, если нужно проверить только наличие символической ссылки на файл, то параметр FollowLink устанавливается в False, а если нужно проверить наличие и символической ссылки на файл и самого файла, то FollowLink устанавливается в True (значение по умолчанию).

Таким образом, в нашем примере, если файла нет на диске то он создается пустым. Далее выполняется цикл:

repeat
    Writeln('Добавить в файл запись: 1 - Да; 2 - Нет');
    Readln(DoAppend);
    case DoAppend of
      1: AppendTypedFile;
      2: break;
    end;
  until DoAppend = 0;

В этом цикле, если пользователь вводит 1, выполняется процедура AppendTypedFile, которая добавляет в файл очередную запись:

procedure AppendTypedFile;
var
  F: file of TPerson;
  Person: TPerson;
begin
  AssignFile(F, 'MyFile.txt');
  // открываем файл для записи
  Reset(F);
  //смещаемся в конец файла
  Seek(F, FileSize(F));
  // задаем имя/фамилию человека
  Writeln('Введите имя: ');
  Readln(Person.Name);
  Writeln('Введите фамилию: ');
  Readln(Person.Family);
  Writeln('Введите возраст: ');
  Readln(Person.Age);
  // добавляем запись в файл
  Write(F, Person);
  // закрываем файл
  CloseFile(F);
end;

Здесь, в принципе, весь алгоритм расписан в комментариях к процедуре.
Метод Reset не воссоздает файл снова, как Rewrite, а открывает его для чтения/записи (в случае двоичных файлов). Что касается метода Seek, то он имеет следующее описание:

procedure Seek(var F: File; N: Integer);

F — файловая переменная, ассоциированная с файлом на диске, N — номер записи в файле (первый номер — 0). Чтобы переместиться сразу в конец файла, мы сделали такой вызов:

где FileSize — это метод Delphi имеющий следующее описание:

function FileSize(var F: File): Integer;

В случае использования типизированных файлов эта функция возвращает количество записей в файле.

После того, как пользователь вводит что-то кроме 1 срабатывает метод ReadTypedFile — чтение всех записей из файла:

procedure ReadTypedFile;
const
  cStr = '%s %s %d';
var
  F: File of TPerson;
  Person: TPerson;
begin
  AssignFile(F, 'MyFile.txt');
  Reset(F);
  while not Eof(F) do
  begin
    Read(F, Person);
    Writeln(Format(cStr, [Person.Name, Person.Family, Person.Age]));
  end;
end;

Здесь мы, опять же, открываем файл методом Reset и в цикле while..do проходим по всем записям файла, пока не дойдем до конца. Здесь мы использовали два новых метода Delphi:

function Eof([var F: File]): Boolean; overload;

Eof возвращает True, если текущая позиция файла находится за последним символом файла или файл пуст. В противном случае Eof возвращает False.
По аналогии с методом Write, метод Read производит чтение очередной записи из файла и имеет следующее описание:

procedure Read(var F: File; V1; [ ..., VN]);

Результат работы нашего примера может быть следующим:

Ещё одним полезным методом для работы с типизированными файлами может быть процедура Truncate:

procedure Truncate(var F: File);

Удаляет все записи после текущей позиции файла. Вызовите Truncate в коде Delphi, чтобы текущая позиция файла стала концом файла (Eof (F) вернет true).
Рассмотрим пример использования этой процедуры.

Пример №3. Удаление последних записей типизированного файла в Delphi

Воспользуемся файлом, созданным в предыдущем примере и удалим из него две последние записи:

program example_3;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
 
uses
  System.SysUtils;
 
type
  TPerson = record
    Name: string[20];
    Family: string[20];
    Age: integer;
  end;
 
procedure ReadTypedFile;
const
  cStr = '%s %s %d';
var
  F: File of TPerson;
  Person: TPerson;
begin
  AssignFile(F, 'MyFile.txt');
  Reset(F);
  while not Eof(F) do
  begin
    Read(F, Person);
    Writeln(Format(cStr, [Person.Name, Person.Family, Person.Age]));
  end;
end;
 
var
  TypedFile: File of TPerson;
  Person: TPerson;
  Count: integer;
  DoErase: integer;
begin
  AssignFile(TypedFile,'MyFile.txt');
  Reset(TypedFile);
  Count:=FileSize(TypedFile);
  if Count<2 then
    begin
      Writeln('Количество записей в файле меньше двух. Стереть все записи? 1 - Да; 2 - Нет');
      Readln(DoErase);
      if DoErase=1 then
        Truncate(TypedFile);
    end
  else
    begin
      Seek(TypedFile, Count-2);
      Truncate(TypedFile);
    end;
  //читаем все записи из типизированного файла
  ReadTypedFile;
  Readln;
end.

В этом примере мы делаем следующее:

1. Открываем файл существующий AssignFile/Reset
2. Определяем количество записей в файле (Count:=FileSize(TypedFile))
3. Если количество записей меньше двух, то спрашиваем у пользователя стереть ли все записи и, в случае положительного ответа, вызываем метод Tuncate
4. Если количество записей в файле больше двух, то смещаемся на нужную нам позицию в файле (Seek(TypedFile, Count-2)) и затираем две последние записи методом Truncate.

Подведем итог

Для работы с типизированными файлами в Delphi в самом общем случае нам необходимо выполнить следующую последовательность операций:

1. Определить тип записей в файле — это могут быть стандартные типы данных Delphi с фиксированным размером: ShortString, integer, single и так далее или собственные типы данных, например, записи (record), но, в этом случае, главное условие — размер записи должен быть фиксированным.
2. В коде Delphi/Pascal определить файловую переменную, используя ключевое слово file и, указав тип записей файла, определенный в пункте 1.
3. Ассоциировать файловую переменную с внешним файлом на диске, используя метод AssignFile.
4. Открыть файл для чтения/записи, используя методы Rewrite/Reset.
5. Чтобы сделать в файл очередную запись используем метод Write, для чтения очередной записи из файла — используем метод Read.
6. Закрыть файл методом CloseFile.

В целом, рассмотренные выше примеры не охватывают всех возможностей работы с типизированными файлами в Delphi, а, скорее, показывают основные операции по работе с типизированными файлами. Поэтому ниже представлен перечень методов которые могут применяться при работе с типизированными файлами в Delphi/Pascal.

Функции и процедуры для работы с типизированными файлами в Delphi/Pascal

procedure AssignFile(var F: File; FileName: String)

procedure CloseFile(var F: File);

function Eof(var F: File): Boolean;

procedure Erase(var F: File);

function FilePos(var F: File): Integer;

function FileSize(var F: File): Integer;

procedure Read(var F: File; V1; [ ..., VN]);

procedure Rename(var F: File; Newname: String);

procedure Reset(var F: File; [ RecSize: Integer]);

procedure Rewrite(var F: File; [ RecSize: Integer]);

procedure Seek(var F: File; N: Integer);

procedure Truncate(var F: File);

procedure Write([var F: File]; P1; [ ..., PN]);

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.