erkenne ob Datei offen ist?

[moelski]

Moin !

Wenn ich so eine Datei benutze:

Delphi-Quellcode:

var LogFile           : TextFile;
begin
  AssignFile(LogFile, Field_Ort.Text + '\' + Field_Filename.Text);
  ReWrite(LogFile);
  WriteLn(LogFile, DataToSave);
  ....
end;

Gibt es da eine Möglichkeit festzustellen ob die Datei nun gerade geöffnet ist oder nicht?
LogFile auf NIL überprüfen klappt nicht wirklich.

[Luckie]

Merk es dir doch einfach.

Aber sinnvoller ist es sowieso die Datei variable lokal zu deklarieren und die Datei nach Gebrauch immer wieder zu schließen, dann tauchen solche Fragen erst gar nicht auf.

[Matze]

Und wenn du wissen möchtest, ob ein anderes Programm die Datei geöffnet hat (so habe ich deine Frage verstanden), dann kannst du das nur feststellen, wenn die Datei exklusiv geöffnet wurde (Sonst sind Treiber, Dienste o.ä. erforderlich).
Code zum prüfen, ob eine Datei exklusiv geöffnet ist, gobt's hier.

[himitsu]

Delphi-Quellcode:

var F: TextFile;
begin
  if TTextRec(F).Mode <> fmClosed then

aber die Datei muß mindestens einmal vorher mit AssignFile initialisiert worden sein.

Für "File of ..." bietet sich TFileRec(F).Mode an ... dieses TFileRec ist in den ersten Feldern identisch zu TTextRec und es ist quasi egal, was man da nimmt.