Jak sprawdzić przed zapisem czy jest dyskietka w napędzie, żeby nie pojawiał się błąd podczas zapisu gdy takowej brakuje [cya] ?
pozdrawiam
Piotr
0
0
{I$-}
Chdir('A:\');
if IOError0 then dyskjest:=true else dyskjest:=false;
{I$+}
0
IOErrors nie ma.
Wpisałem IOResult i działa ale tylko za pierwszym razem. Gdy nie ma dyskietki na początku jest OK, rzucam komunikat na ekran o braku dyskietki. Wkładam dystkietkę następnie coś nagrywam. I teraz gdy wyciągnę dyskietkę to powinien znowu domagać się dyskietki a on od razu przechodzi do nagrywania i pokazuje błędy.
{$I+}
Chdir('A:\');
if IOResult=0 then
zapisz
else
Brak dyskietki
Co jest nie tak?
0
ejjjj....
{$I-} wyłącza kontrolę błędów
{$I+} włącza kontrolę błędów
Ty masz na początku {$I+}!
--
;) Szymek