Jak sprawdzic czy plik istnieje (w Turbo Pascalu)?

29.05.2003

19:22

[1]

p_rwix [ Pretorianin ]

Jak sprawdzic czy plik istnieje (w Turbo Pascalu)?

jak w turbo pascalu sprawdzic czy plik istnieje na dysku?

29.05.2003

19:28

[2]

_Robo_ [ Generaďż˝ ]

Pascal :) to byly czasy...


function FileExists(FileName: String): Boolean;
‹ Boolean function that returns True if the file exists;otherwise,
it returns False. Closes the file if it exists. ›
var
F: file;
begin
‹$I-›
Assign(F, FileName);
FileMode := 0; ( Set file access to read only ›
Reset(F);
Close(F);
‹$I+›
FileExists := (IOResult = 0) and (FileName <> '');
end; ‹ FileExists ›