HasExtension(Path: String): Boolean;
Path — путь для поиска расширения.
Метод HasExtension возвращает признак наличия в пути расширения файла.
Метод возвращает значение True, если путь содержит расширение файла, и False, если не содержит.
Sub Main;
Var
Path_File, s: String;
Begin
Path_File:="c:\Work\1.txt";
If Path.HasExtension(Path_File) Then
s:="Yes";
Else
s:="No";
End If;
End Sub Main;
После выполнения примера в переменной «s» будет содержаться «Yes», если в пути содержится расширение файла.
См. также: