[OT] Błąd 152 - drive not ready -

Użytkownik "Adam Jurkiewicz" snipped-for-privacy@NIEMATEGOajpic.zonk.pl> napisał w wiadomości news:dqfqvi$o1s$ snipped-for-privacy@nemesis.news.tpi.pl...

używasz {$I-} sprawdź dyskietkę {$I+} ?

Nie słyszałem aby w bibliotekach był problem z błędem 152. Natomiast podstawiłeś turbo.tpl z błędem "division by zero." ta biblioteka oryginalnie miała taki błąd i nie chodziła z procesorami powyżej 200MHz. jest gdzieś na sieci poprawka do niej.

Znalazłem coś takiego, potestuj

Procedure JestDysk(Dysk : string); begin {$I-} ChDir(Dysk); {$I+} if IOResult=15 then begin Writeln('Nie ma napCdu oznaczonego takĄ literĄ'); Writeln; ChDir(miejsce); Halt; end; if DiskSize(0)=-1 then begin Writeln('Uszkodzony lub wyjCty dysk '); Writeln; ChDir(miejsce); Halt; end; end;

Tak, to już sprawdzałem, po wyłączeniu też wywala.

Czytałem coś w opisie FreePacala, że jest rozszerzona lista błędów IOResult właśnie o taki przypadek braku napędu, tam też znalazłem tego linka do nowych bibliotek.

Faktycznie nie zajarzyłem, kiedyś patchowałem starą bibliotekę ale ze względu na moduł crt, który się wywalał przy wywołaniu funkcji opóźniającej. Spróbuję to załatać ponownie.

Dzięki, przetestuję jeszcze raz.

Pozdrawiam, AJ

Użytkownik "Adam Jurkiewicz" snipped-for-privacy@NIEMATEGOajpic.zonk.pl> napisał w wiadomości news:dqg8la$mna$ snipped-for-privacy@nemesis.news.tpi.pl...

po {$I-} wywala błąd wejścia wyjścia?????

Już nie wywala, znalazłem błąd w kolejności wywołań funkcji i to powodowało mój problem. Teraz już działa poprawnie (ze domyślnymi bibliotekami).

Dzięki i pozdrawiam, sword