Иногда программа должна "знать" имя файла. Если извлекать из полного пути, например из такого "H:\Program Files\Borland\Delphi7\Demos\файл", то используя функции работы со строками придется кодировать во множестве строк. Но Delphi, к счастью, дает нам функцию, которая выполнит всю рутинную работу. ExtractFileName - это функция возвращающая из полного пути имя файла.

Функция имеет следующий синтаксис:

function ExtractFileName(const Path: String): String;

Для усвоения пройденного расположим на форме компонент Label и кнопку.

Обработчик нажатия кнопки сделаем таким:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption := ExtractFileName(Application.ExeName);
end;

Предварительно перед нажатием кнопки необходимо сохранить проект. Строка Application.ExeName - укажет наименование выполняемого файла, нашего проекта.

Итог: мы познакомились с функцией ExtractFileName.