Форма входа

Категории раздела

Мои файлы [12]
Полезности [15]

Поиск

Наш опрос

Оцените мой сайт
Всего ответов: 62

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0




Воскресенье, 19.05.2024, 07:46
Приветствую Вас Гость | RSS

Delphiport.ucoz.com

Главная | Регистрация | Вход
Полезные советы


Главная » Файлы » Полезности

А существует ли файл?
03.08.2012, 21:02

  

  Иногда в ходе написания своего приложения, нужно убедиться в наличии на компьютере, какого либо файла. Типа если файл существует, - делаем раз, если нет, - делаем два. Реализовать сие действо, нам поможет функция FileExists. Она проверяет наличие искомого файла, и функция возвращает - True, если он существует и False - если он отсутствует.

   В  качестве примера я предлагаю выбрать какой либо файл и запомнить адрес директории его предполагаемого размещения. Я например, возьму один из своих аудио файлов - Музыка.wav и чтоб не париться с длинной адреса его расположения, заброшу файл на C:/

Теперь собственно можно начинать:

1) Кидаем на форму компонент Button1 и в событии OnClick прописываем следующее:

begin

if FileExists(AnsiString('C:/Мелодия.wav')) then // AnsiString-позволяет содержать последовательность символов, подобно предложениям...

begin

ShowMessage('Файл существует');

end

else

begin

ShowMessage('Файл отсутствует');

end;

2) Запускаем приложение, нажимаем на кнопку и видим появившийся месседж - "Файл существует", а если мы наш файлик переместим куда нибудь в другое место, и снова нажмем на Button, то будем иметь честь лицезреть месседж "Файл отсутствует".

Удачных экспериментов господа!!!

)))

Категория: Полезности | Добавил: Sashok
Просмотров: 624 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Copyright MyCorp © 2024