- Код: Выделить всё
if FileIsInDirectory('test.txt', 'C:/example/') then
begin
MainWindow.Caption := 'It`s work!!!';
end;
не работает(всё время возвращает false). Пробовал через FileIsInPath(кстати, чем они отличаются?

P.S. WIndows XP, Lazarus 0.9.26
Модератор: Модераторы
if FileIsInDirectory('test.txt', 'C:/example/') then
begin
MainWindow.Caption := 'It`s work!!!';
end;
Дание функции не проверяют существования файла на диске. Они проверяют по пути к файлу находится ли он в заданой директории.
Пример:
FileIsInDirectory('/home/user/hello/a.zip','/home/user/'); вернет false (не в етой директории)
FileIsInDirectory('/home/user/hello/a.zip','/home/user/hello/'); вернет true (точно в етой директории)
FileIsInPath('/home/user/hello/a.zip','/home/user/'); вернет true (в поддиректории заданой директории)
Для проверки существования файла используй
FileExistsUTF8('/home/user/hello/a.zip');
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 220