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

← →
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]

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

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

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