Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

функция MinimizeName()   Найти похожие ветки 

← →
Charly   (2003-09-13 14:38) [0]

Подскажите, плз, есть ли в D5 аналог сабжа, и если есть, то какой?

Эта ф-ция в D4 возвращает "укороченное" имя файла, в котором часть пути заменена многоточием с тем, чтобы слишком длинное полное имя файла влезло в заданную ширину Canvas.
Например: полное имя файла "C:\Dir1\Dir2\Dir3\Dir4\Dir5\Dir6\myFile.txt" будет отображаться как:
"C:\...\Dir6\myFile.txt"

---

← →
Palladin ©   (2003-09-13 14:52) [1]

WIN32_FIND_DATA + F1

---

← →
Palladin ©   (2003-09-13 14:52) [2]

Сорри, не то.

---

← →
dataMaster ©   (2003-09-13 14:57) [3]

Вот писал когда-то, потому как ничего готового не нашел (или плохо искал):

function TruncPath(Path : string; SubDirCnt:integer):string;
var
k : integer;
s1, s2 : string;
begin
k:=3;
repeat
Inc(k);
if Path[k]="\" then
Dec(SubDirCnt);
until (SubDirCnt=0) or (k>=Length(Path));
s1:=copy(Path, 1, k);
k:=Length(Path);
while Path[k]<>"\" do Dec(k);
s2:=copy(Path, k+1, Length(Path));
if Length(s1+s2)=Length(Path) then
Result:=s1+s2
else
if Length(s1+s2)>Length(Path) then
Result:=Path
else
Result:=s1+"...\"+s2;
end;


Кто знает, может это очередной велосипед? :-)

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c