Можно ли имея F:TextFile определить...

[Alex Cones]

...открыт ли он в данный момент с помощью AssignFile(...); Rewrite(F);?

[DeDoK]

всмысле вам надо узнать КАК открыт файл?

[raxp]

procedure AssignFile ( var FileHandle : TextFile; const FileName : string ) ;

Процедура AssignFile назначает значение FileName значению FileHandle при подготовке к чтению или записи этого файла.

Версия 1

Берет тип переменной текстового файла как дескриптор. Когда файл открыт он обрабатывается как textfile.

Если имя файла пустая строка, то доступ к файлу осушествляется через стандартные потоки input и output.

Версия 2

Берет бинарный тип файла как дескриптор. Файл обрабатывается как двоичный файл.

В обоих случаях, когда файл открыт с помощью Append, Reset или ReWrite предполагается, что он находится в текущем каталоге.

Примечания
FileHandle не должен быть перепутанным с дескриптором файла, используемым для файла низкого уровня, обращающегося с подпрограммами типа FileOpen и FileRead.

имея хэндл файла, можно узнать занят-ли он (-1).

[Alex Cones]

имея хэндл файла, можно узнать занят-ли он (-1).

А можете указать метод проверки? А то мне не совсем понятно...

всмысле вам надо узнать КАК открыт файл?

Нет. Мне надо узнать, открыт ли файл вообще. Метод мне известен точно - rewrite

[raxp]

если узнать открыт ли он вообще rewrite-ом или reset-ом, то проще и быстрее попытаться получить к нему доступ через FileOpen

FileHandle:= FileOpen(FileName, fmOpenRead)

если = -1 то, открыт.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var s: string;
begin
 AssignFile(f, 'Test.txt');
 ReWrite(f);
 //WriteLn(f, '111');

 //CloseFile(f); // специально не закрываем имитируя занятость
end;


function lock_file(filename:string):boolean;
var iFileHandle: Integer;
begin
 result:=false;
 //
 if fileexists(FileName) then begin
  iFileHandle:= FileOpen(FileName, fmOpenRead);
  FileClose(iFileHandle);
  if iFileHandle=-1 then result:=false
   else result:=true;
 end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject); // проверяем занят-ли
begin
 if lock_file('Test.txt') then caption:= '1'
  else caption:= '0'
end;

[Alex Cones]

Спасибо, попробую.