[Sharky]

Привет всем
подскажите мне пжалуйсто вот что:
у меня есть FileListBox мне нужно скрыть расширения из списка файлов.

[Денис]

Если ты знаешь что все разширения из 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;

в противном случае практически тоже самое тока ищешь точку и отнимаешь нужное число символов

[<<D>>]

//У файлов 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;