Vérification du fichier est ouvert dans Delphi

Est-il un moyen de vérifier si un fichier a été ouvert par le Réécrire en Delphi?

Code serait quelque chose comme ceci:

AssignFile(textfile, 'somefile.txt');
if not textFile.IsOpen then
   Rewrite(textFile);

source d'informationauteur JamesSugrue | 2008-09-26

  1. 16

    Vous pouvez obtenir le filemode. (Un instant, je vais créer un exemple).

    TTextRec(txt).Mode vous donne le mode:

    55216 = closed
55217 = open read
55218 = open write

fmClosed = $D7B0;
fmInput  = $D7B1;
fmOutput = $D7B2;
fmInOut  = $D7B3;

    De recherche TTextRec dans le système de l'unité pour plus d'informations.

  2. 12

    Essayez ceci:

    function IsFileInUse(fName: string) : boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(fName) then begin
    Exit;
  end;

  HFileRes := CreateFile(PChar(fName)
    ,GENERIC_READ or GENERIC_WRITE
    ,0
    ,nil
    ,OPEN_EXISTING
    ,FILE_ATTRIBUTE_NORMAL
    ,0);

  Result := (HFileRes = INVALID_HANDLE_VALUE);

  if not(Result) then begin
    CloseHandle(HFileRes);
  end;
end;
  3. 7

    Cela fonctionne bien:

    function IsOpen(const txt:TextFile):Boolean;
const
  fmTextOpenRead = 55217;
  fmTextOpenWrite = 55218;
begin
  Result := (TTextRec(txt).Mode = fmTextOpenRead) or (TTextRec(txt).Mode = fmTextOpenWrite)
end;
  4. 1

    Je l'ai trouvé plus facile de garder une variable booléenne comme un compagnon; exemple: bFileIsOpen. Partout où le fichier est ouvert, ensemble bFileIsOpen := true ensuite, chaque fois que vous avez besoin de savoir si le fichier est ouvert, il suffit de tester cette variable; exemple: if (bFileIsOpen) then Close(datafile);

  5. -1

    Joseph réponse fonctionne parfaitement - j'ai appelé la fonction filenotopen et changé la ligne si 

    Result := (HFileRes = INVALID_HANDLE_VALUE);

    à

    Result := NOT (HFileRes = INVALID_HANDLE_VALUE);

    J'ai également supprimé la ligne "si ce n'(Suite), puis commencer" (et la "fin") afin de TOUJOURS fermer la poignée ou les affectations ultérieures et lit des erreurs

    J'ai maintenant l'appeler comme cela

    if filenotopen(filename) then 
  begin
    assignfile(f,filename);
    reset(f)
    etc;
  end
else
  message('file open by a different program')