10.11.2012, 22:24
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
|
Сообщение от Diplomate
Если файл имеет имя demo(в любом регистре), то текст отображается одним шрифтом, если другое-другим. Как такое реализовать я в целом знаю, но как сделать проверку на имя файла? Я знаю, что имя файла хранится в OpenDialog.FileName, но дело в том, что там находится путь к нему. К примеру, выбрав файл Demo в папке "папка1", в OpenDialog.FileName будет находиться следующий текст: "C:\папка1\demo.txt". Как тогда осуществить проверку имени файла?
|
Код:
if AnsiSameText('demo.txt', ExtractFileName(OpenDialog1.FileName)) then Если ещё и без учёта расширения тогда так:
Код:
if AnsiSameText('demo', ChangeFileExt(ExtractFileName(OpenDialog1.FileName), '')) then |