x-kom hosting

Try...except i istnienie pliku.

wizard
utworzono
utworzono

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
komentarz

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
komentarz

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.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.