GetFileNameWithoutExtension(Path: String): String;
Path - путь к файлу.
Метод GetFileName возвращает имя файла указанной строки пути без расширения.
Sub Main;
Var
Path_File, s: String;
Begin
Path_File:="c:\Work\1.txt";
s:=Path.GetFileNameWithoutExtension(Path_File);
End Sub Main;
После выполнения примера в переменной «s» будет содержаться «1».
См.также: