Функция для получения пути к файлу из текстовой строки.

 

Синтаксис

function ExtractFileExt(sFileName:string): string;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sFileName

string

имя файла и/или полный путь к нему.

 

Результат функции

Путь к файлу с символом обратного слеша ("\") в конце, имя файла и расширение отбрасывается.

 

Пример

var
  sFullName, sPath, sName, sExt: string;
begin
  sFullName := mGetServerServiceFolder(3) + 'mcserv.exe';
  
  sPath := ExtractFilePath(sFullName);
  sName := ExtractFileName(sFullName);
  sExt  := ExtractFileExt(sFullName);
  
  mLogScript('Full name: ' + sFullName, '');
  mLogScript('Path: ' + sPath, '');
  mLogScript('Name: ' + sName, '');
  mLogScript('Extension: ' + sExt, '');
end.

Результат работы скрипта

[20:17:51] (Log "ExtractFileParts"): Full name: E:\Projects\MC\Sources\Server\mcserv.exe

[20:17:51] (Log "ExtractFileParts"): Path: E:\Projects\MC\Sources\Server\

[20:17:51] (Log "ExtractFileParts"): Name: mcserv.exe

[20:17:51] (Log "ExtractFileParts"): Extension: .exe

[20:17:51] (Run "ExtractFileParts"): Время выполнения скрипта: 5 мс

[20:17:51] (Run "ExtractFileParts"): Скрипт выполнен успешно.

 

Ещё посмотреть

ExtractFileExt

ExtractFileName

mGetServerServiceFolder

mLogScript