Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Как реализовать проверку расширения файлов? 


inko   (2002-04-09 15:37) [0]

Как реализовать проверку расширения файлов?

Например, нужно проверить *.ocx; *.dll; *.tlb; *.acm; *.ax ли это файлы.



Song   (2002-04-09 15:40) [1]

А русским языком?



Anatoly Podgoretsky   (2002-04-09 15:45) [2]

С помощью IF



AFROLOV   (2002-04-09 15:49) [3]

ExtractFileExt

Returns the extension portions of a file name.
Unit
SysUtils
Category
file name utilities
function ExtractFileExt(const FileName: string): string;
Description
Use ExtractFileExt to obtain the extension from a file name. For example, the following code returns the extension of the file name specified by a variable named MyFileName:
MyFilesExtension := ExtractFileExt(MyFileName);
The resulting string includes the period character that separates the name and extension parts. This string is empty if the given file name has no extension.
Note: This function works for multi-byte character systems (MBCS).



inko   (2002-04-09 15:49) [4]

Нужна функция проверки расширения файла, который находится в Edit1.



Андрей Сенченко   (2002-04-09 16:26) [5]

В Edit1 не может находиться файла. Максимум, что там может быть - это строка, в которой описан путь к файлу и его и имя.



inko   (2002-04-09 16:34) [6]

Это я и имел ввиду.



Андрей Сенченко   (2002-04-09 16:55) [7]

В этом случае Вам полностью подходит ответ А.Фролова




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.034 c
3-69661           Canny                 2002-04-02 00:00  2002.04.22  
Как подключиться к базе MySQL?


6-69938           PL                    2002-02-01 20:51  2002.04.22  
traceroute


3-69705           stal67                2002-03-30 20:21  2002.04.22  
ComboBox для отображения связанных таблиц


3-69678           Sewix                 2002-03-27 15:48  2002.04.22  
Qreport


1-69831           oomneeq               2002-04-10 18:39  2002.04.22  
MRU List открывавшихся проектов в IDE