Witam. Mama napisać na projekt taki mini menadżer plików w Pascalu.
I napotykam na pewien problem - Weryfikacje czy podana ścieżka do folderu jest poprawna(czy podany katalog istnieje)
Funkcja działa żle. Zwraca mi że katalog nie istnieje kiedy wprowadzę poprawną ścieżkę a gdy wpisze jakieś przypadkowe dane (&##8787) program wywala błąd i zamyka się mimo że użyłem dyrektywy {$I-}. Proszę o pomoc.
Oto kod:
FUNCTION F_czy_istnieje_katalog(sciezka:PathStr;pomocnicza:Searchrec) : boolean;
begin
{$I-}
FindFirst(sciezka, Directory, pomocnicza);
if DosError=0 Then
begin
FindFirst(sciezka, AnyFile-Directory-VolumeID, pomocnicza);
writeln(DosError);
if DosError<>0 Then
begin
writeln('Katalog ', sciezka, ' nie istnieje');
F_czy_istnieje_katalog := false;
end
else
F_czy_istnieje_katalog := true;
end;
{$I+}
end;
var
pierwszy_plik:wsk_plik;
tmp_plik:SearchRec;
sciezka_do_folderu:PathStr;
begin
pierwszy_plik := nil;
REPEAT
writeln('Podaj sciezke do katalogu ktory chcesz zbadac');
readln(sciezka_do_folderu);
UNTIL F_czy_istnieje_katalog(sciezka_do_folderu,tmp_plik) = true;