Prüfen ob eine Dateivariable mit Assign zugewiesen ist

[diver03]

Hallo

gibt es eine Möglichkeit zu prüfen, ob einer Dateivariable (vom Typ Textfile) eine
Datei zugewiesen wurde?
Ich muss nicht wissen, welche Datei, sondern nur ob die entsprechende Dateivariable
mit assign bereits zugewiesen ist oder nicht.

MfG
Jens

[WM_CLOSE]

So vielleicht?

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile(...);
  if f<>nil then
  begin
    try
      //machwas
    finally
      CloseFile(...);
    end;
  end;
end;

[Sir Rufo]

Zitat von WM_CLOSE:

So vielleicht?

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile(...);
  if f<>nil then
  begin
    try
      //machwas
    finally
      CloseFile(...);
    end;
  end;
end;

wenn schon mit try..finally dann bitte auch richtig

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile( f, ... );  // f zuweisen
  if f <> nil then
  try
    ReWrite( f );  // oder
    // ReSet( f );  // oder
    // AppendFile( f ); // öffnet den Zugriff auf die Datei
    try
      // machwas
    finally
      CloseFile( f );  // der hier wieder geschlossen wird
    end;
  finally
    f := nil;  // Zuweisung aufheben
  end;
end;

[DeddyH]

Mein Delphi kennt weder TTextFile, noch lässt sich der Dateivariablen nil zuweisen oder gegen nil prüfen . 0 oder so geht allerdings auch nicht, und ich habe noch nicht herausbekommen, von welchem Typ "Dateivariable" nun wirklich ist.

[gammatester]

Zitat von WM_CLOSE:

So vielleicht?

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile(...);
  if f<>nil then
  begin
    try
      //machwas
    finally
      CloseFile(...);
    end;
  end;
end;

Das ist doch wohl ziemlich unsinnig. Selbst wenn man außer acht läßt, daß es kein TTextfile gibt, ein Textfile kein Pointer ist etc: Wenn Du das AssignFile(...) aufrufst, dürfte die alte Verbindung ins Nirwana eingehen.

AssignFile(f) setzt TTextrec(f).Mode auf fmClosed, allerdings auch CloseFile. Reset/Rewrite etc setzen andere Werte der File mode constants. D.h. wenn TTextrec(f).Mode=fmClosed ist, kann man ziemlich sicher sein, daß f gerade nicht benutzt wird.

Zitat von Delphi-Hilfe:

File mode constants are used to open and close disk files.

Unit

System

Category

file management routines

const fmClosed = $D7B0; // closed file

const fmInput = $D7B1; // reset file (TTextRec)
const fmOutput = $D7B2; // rewritten file (TTextRec)
const fmInOut = $D7B3; // reset or rewritten file (TFileRec)
const fmCRLF = $8 // DOS-style EoL and EoF markers (TTextRec)
const fmMask = $D7B3; // mask out fmCRLF flag (TTextRec)

Description

Use the file mode constants when opening and closing disk files. The Mode field of TFileRec and TTextRec will contain one of these values.

[WM_CLOSE]

Was ist denn System.Text überhaupt für ein Dateityp, wenn es doch kein Objekt bzw Klasse ist???
PS: Das mit dem TTextFile war nur so geraten.

PS: Die TStringList ist einfacher zu handhaben

[diver03]

Danke, der Tipp mit TTextrec(f).Mode hat mir geholfen.
Damit kann ich arbeiten