Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
Внизфункция 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c