Сократить путь

[Letter]

Подскажите как сократить путь?

Например при System.IOUtils.TPath.GetDownloadsPath выдаст такой путь " /storage/emulated/0/Download " и нужно его сократить

до "/storage/emulated/0 "

[slav_z]

В вашем случае, если в конце нет разделителя директорий, Download - это имя файла, поэтому используйте System.IOUtils.TPath.GetDirectoryName

Попробуйте так же System.IOUtils.TDirectory.GetParent() но оно может модифицировать путь.

[OnePeople]

Copy(path,0,lastDelimiter('/',path)-1);

[Олег Киреев]

В 01.11.2020 в 08:57, OnePeople сказал:

Copy(path,0,lastDelimiter('/',path)-1);

Здравствуйте дайте пожалуйста ссылку на расшифровку   "Copy(path,0,lastDelimiter('/',path)-1);"

С Уважением. Олег.

[GASCHE]

4 часа назад, Олег Киреев сказал:

дайте пожалуйста ссылку

Ищите в интернете Copy и LastDelimiter.

[Tumaso]

5 часов назад, Олег Киреев сказал:

Здравствуйте дайте пожалуйста ссылку на расшифровку   "Copy(path,0,lastDelimiter('/',path)-1);"

С Уважением. Олег.

Ссылка .

[OnePeople]

Не знаю как правильно ни когда не задумывался, всегда делал по старинке, тут надо ещё проверить чтобы последний символ не был равен "/".

If path[length(path)]='/' then // или if pos('/',path)=length(path) then

Copy(path,0, lastDelimiter ('/',copy(path,0,length(path)-1)-1) 

else 

 Copy(path,0,lastDelimiter('/',path)-1);

 

Или допустим copy(path, 0, lastDelimiter ( tpath.getfilename, path)-1;

Или

 

Изменено 2 ноября, 2020 пользователем OnePeople

[Tumaso]

Без проверки на последний / можно обрезать так:

LPath := '/storage/emulated/0/Download';
ShowMessage(LPath.SubString(0, LPath.LastIndexOf('/')));