|
#1
|
||||
|
||||
FileListBox
Привет всем
подскажите мне пжалуйсто вот что: у меня есть FileListBox мне нужно скрыть расширения из списка файлов. |
#2
|
||||
|
||||
Если ты знаешь что все разширения из 3 символов то в событие OnChange добавляешь
Код:
for i:=0 to Filelistbox1.Count-1 do begin Filelistbox1.Items[i]:=Copy(Filelistbox1.Items[i],1,length(Filelistbox1.Items[i])-4); end; |
#3
|
||||
|
||||
Вот так правильнее
//У файлов Ext Может Быть более чем 4(пример:".mpeg");
for i:=0 to Filelistbox1.Count-1 do begin Filelistbox1.Items[i]:=Copy(Filelistbox1.Items[i],1,length(Filelistbox1.Items[i])-length(extractfileext(Filelistbox1.Items[i]))); end; |