Есть ли процедура сокращения пути?

Вопросы использования сторонних (не входящих в состав FPC и Lazarus) утилит и библиотек.

Модератор: Модераторы

Есть ли процедура сокращения пути?

Сообщение Amadeus » 06.07.2006 02:24:50

Помню давно еще встречалась такая процедурка, которая может из пути вида "C:\DATA\Folder1\Folder2\Folder3\Folder4\Folder5\Folder6\Folder7\22APR05P.038"
если он больше n символов, сделать путь вида "C:\DATA\Folder1\..\Folder7\22APR05P.038"

Кто нибудь знает где такое можно найти? Не помню где встречал, сейчас понадобилась, а велосипед изобретать не хочется :)
Amadeus
незнакомец
 
Сообщения: 4
Зарегистрирован: 31.05.2006 15:07:53

Сообщение Romtek » 06.07.2006 14:01:52

function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

Unit: FileCtrl (Delphi)
Аватара пользователя
Romtek
постоялец
 
Сообщения: 190
Зарегистрирован: 22.05.2005 12:29:35
Откуда: Рамат Ган

Сообщение Amadeus » 06.07.2006 15:56:14

Romtek писал(а):
function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

Unit: FileCtrl (Delphi)


В Lazarus такой функции нет, но нашел ее код тут:
http://www.koders.com/delphi/fid96B9646DBA762623ECF5A61D73098E29E7DBECA4.aspx?s=MinimizeName


И все заработало :) Спасибо :)
Amadeus
незнакомец
 
Сообщения: 4
Зарегистрирован: 31.05.2006 15:07:53


Вернуться в Сторонние средства

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

Рейтинг@Mail.ru