wizard utworzono 3 grudnia 2010 utworzono 3 grudnia 2010 Witam, Mam do stworzenia program, który ma zawierać obsługę wyjatkow po przez try...except dla pliku. Mianowicie jesli plik podany przez uzytkownika nie istnieje to ma sie pojawic odpowiedni komunikat. [code]procedure otwieranie; Var plik:file of baza; nazwa_pliku:string; Begin writeln('Podaj nazwe, pamietaj zeby umiescic plik w glownym katalogu programu:'); try readln(nazwa_pliku); assign(plik, nazwa_pliku); reset(plik); except writeln('Podales niewlasciwa nazwe lub plik nie istnieje); End; End; [/code] Przy tej procedurze w programie gdy plik nie istnieje albo nazwa jest niewlasciwa pojawia mi sie blad: "runtime error 2" i program sie zamyka. Moglby ktos wytlumaczyc co zle zrobilem? Z gory dzieki za pomoc.
benkowik komentarz 4 grudnia 2010 komentarz 4 grudnia 2010 Zamiast zmuszać try-except napisz lepszą procedurę: [url="http://4programmers.net/Turbo_Pascal/FAQ/Jak_napisa%C4%87_odpowiednik_funkcji_FileExists_z_Delphi"]http://4programmers.net/Turbo_Pascal/FAQ/Jak_napisa%C4%87_odpowiednik_funkcji_FileExists_z_Delphi[/url]
wizard komentarz 5 grudnia 2010 Autor komentarz 5 grudnia 2010 wiem,ze to lepsze ale mam wymagania do programu na studiach
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.