Ĺadny brzuch
chodzi o zapis listy najlepszych wyników, i późniejeszy jej odczyt. Potrzebuję do tego sprawdzenia, czy dany plik istnieje czy też nie i w zależnośći od tego podjąć odpowiednie kroki (wczytanie pliku bądź utworzenie nowego).
chodzi o zapis listy najlepszych wyników, i późniejeszy jej odczyt. Potrzebuję do tego sprawdzenia, czy dany plik istnieje czy też nie i w zależnośći od tego podjąć odpowiednie kroki (wczytanie pliku bądź utworzenie nowego).
FileExist('plik') zwraca true jeśli plik istnieje, false w przeciwnym wypadku.
Należy podać pełną nazwę pliku razem ze ścieżką.
Można sobie napisać FileExists :Puses dos; ... function FileExists(fn:string):boolean; var sr:SearchRec; begin FindFirst(fn,AnyFile,sr); FileExists:=DosError=0; end;lubfunction FileExists(fn:string):boolean; var f:file; begin Assign(f,fn); {$i-} FileMode:=0; Reset(f); Close(f); {$i+} FileExists:=IOResult=0; end;
Użytkownik Cyrkiel edytował ten post 28 grudzień 2005, 21:13
Można sobie napisać FileExists :Pfunction FileExists(fn:string):boolean; var sr:SearchRec; begin FindFirst(fn,AnyFile,sr); FileExists:=DosError=0; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
chodzi o zapis listy najlepszych wyników, i późniejeszy jej odczyt. Potrzebuję do tego sprawdzenia, czy dany plik istnieje czy też nie i w zależnośći od tego podjąć odpowiednie kroki (wczytanie pliku bądź utworzenie nowego).
FileExist('plik') zwraca true jeśli plik istnieje, false w przeciwnym wypadku.
Należy podać pełną nazwę pliku razem ze ścieżką.
Można sobie napisać FileExists :Puses dos; ... function FileExists(fn:string):boolean; var sr:SearchRec; begin FindFirst(fn,AnyFile,sr); FileExists:=DosError=0; end;lubfunction FileExists(fn:string):boolean; var f:file; begin Assign(f,fn); {$i-} FileMode:=0; Reset(f); Close(f); {$i+} FileExists:=IOResult=0; end;
Użytkownik Cyrkiel edytował ten post 28 grudzień 2005, 21:13
Można sobie napisać FileExists :Pfunction FileExists(fn:string):boolean; var sr:SearchRec; begin FindFirst(fn,AnyFile,sr); FileExists:=DosError=0; end;