Ist Textfile initialisiert?

[smudo]

Einer Prozedur soll ein Textfile übergeben werden.
Um den weiteren Verlauf in der Proc festzulegen, möchte ich nun prüfen, ob der Datei schon mit AssignFile ein Name zugewiesen wurde.

Beide folgenden Aufrufe funktionieren leider nicht:

Delphi-Quellcode:

if Assigned(FileOut) then ...
if FileOut <> Nil then ...

Wie kann man das prüfen?

René

[mkinzler]

M.W. gar nicht.

[smudo]

Das wäre schade.
So scheint mir nur die Möglichkeit zu bleiben, ein Rewrite zu versuchen und die Exception abzufangen.

[Muetze1]

If ( TTextRec(FileOut).Handle <> INVALID_HANDLE_VALUE ) Then

[marabu]

Hallo,

ich würde TTextRec.Mode testen - nach dem AssignFile() ist der Wert fmClosed.

Grüße vom marabu

[smudo]

Sorry, ich habs leider mit beiden Varianten nicht hinbekommen.
Ich hab das FileHandling halt erstmal mit in die Prozedur übernommen.
Danke trotzdem.

[Muetze1]

Aso, Entschuldige. Mein Code funktioniert nur, wenn die Datei auch schon geöffnet wurde (ReWrite, Reset oder Append). Daher Prüfe einfach ob der Dateiname schon enthalten ist:

If ( TTextRect(FileOut).Name[0] <> #0 ) Then

[3_of_8]

Du könntest dir auch ein Flag setzen und das dann überprüfen.