Как мы можем проверить, указатель файла назначен или нет в Delphi?

Question

В delphi мы можем создать указатель файла для чтения и записи строк в файл. В моем проекте я должен создать указатель файла, если он не назначен.

Пожалуйста, поделитесь мыслями, чтобы достичь этого.

AssignFile(FilePtr, 'File1.txt');
Rewrite(FilePtr);
closeFile(FilePtr); 

Answer 1

Я предполагаю, что FilePtr является TextFile, поскольку вы пишете в файл .TXT.

Если FilePtr является членом CLASS, он был обнулен с начала. Если это глобальная переменная, то она имеет. Если это локальная переменная, вам нужно сделать это самостоятельно в начале метода, определяющего ее:

TTextRec(FilePtr).Handle:=0;

Затем вы можете проверить, был ли он уже присвоен файлу с помощью:

IF TTextRec(FilePtr).Handle=0 THEN BEGIN
  AssignFile(FilePtr,'File1.txt');
  Rewrite(FilePtr)
END;

Когда вы закрываете его, вы также должны добавить эту строку:

CloseFile(FilePtr);
TTextRec(FilePtr).Handle:=0;

Если ваш FilePtr является ФАЙЛОМ, а не TextFile, замените TTextRec на TFileRec.