Jak spr czy do TextFile jest przypisany plik?

0

Mam

var
plik : TextFile;

i teraz w pewnym miejcu programu robię sobie AssignFile(plik, 'c:\plik.txt') albo nie robię. I teraz jak sprawdzić czy zrobiłem AssignFile, to zanczy jak sprawdzić, czy do zmiennej plik jest przypisany jakiś plik?

0 
if Assigned(plik) then ...
0

ha, logicznie rozumując to od razu(sam :P) wpadłem na ten pomysł, ale niestety nie działa

[Error] Unit1.pas(31): Incompatible types

, dlatego się pytam tutaj.

0

Więc starym paskalowym sposobem:
{$i-}
Reset(p);
if IOResult = 102 then
(* Nieprzypisany *)
{$i+}

0

Dzięki, działa.
Jednak po burzliwym myśleniu doszedłem do wniosku, że mogę zrobić to co chcę inaczej i wcale nie jest mi potrzebne sprawdzanie, ale mimo wszystko dzięki.

1 użytkowników online, w tym zalogowanych: 0, gości: 1