Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.26;
Скачать: CL | DM;

Вниз

ListBox   Найти похожие ветки 

 
_demon   (2004-01-14 20:55) [0]

Здорова ВСЕМ!
Подскажите ПЛЗ

задаёш DIR(дерикторию)
Надо чтобы в ListBox отобразились
файлы с дериктории с заданым форматом
например " mp3"

Благодарен!


 
Anatoly Podgoretsky ©   (2004-01-14 20:58) [1]

Сообщение LB_DIR


 
_demon   (2004-01-14 21:00) [2]

Ну на пример: " С:\Musik "
и надо с неё толко MP3


 
Тимохов ©   (2004-01-14 21:02) [3]

findfirst, findnext, listbox.items.add


 
_demon   (2004-01-14 21:02) [4]

Ну на пример: " С:\Musik "
и надо с неё толко MP3


 
DVM ©   (2004-01-14 21:03) [5]

А еще лучше ListView взять вместо ListBox. Помощнее он будет при больших количествах файлов.


 
_demon   (2004-01-14 21:07) [6]

Благодарен всем!


 
_dEMOn   (2004-01-14 21:21) [7]

Не получается


 
KADAN   (2004-01-14 22:40) [8]

Извини, лень объяснять... попробуй разобраться сам (это я когда-то писал для очистки папки проджектс от всякой ерунды)
Здесь реализован перебор файлов *.* ):

function ShouldDelete(f:string):boolean;
var ext:string;
begin
ext:=ExtractFileExt(f);
result:=(ext=".~pas")or(ext=".~dfm")or(ext=".dcu")
or(ext=".~dpr")or(ext=".~dsk")or(ext=".dsk")or(ext=".cfg")
or(ext=".dof")or(ext=".ddp")or(ext=".~ddp");
end;

procedure KillFilesFrom(Dir:string);
var cur:_WIN32_FIND_DATAA;
FH:THandle;
begin
try
FH:=FindFirstFile(Pchar(Dir+"\*.*"),cur);
if ShouldDelete(cur.cFileName) then
Del(Dir,cur.cFileName);
while not (FH=INVALID_HANDLE_VALUE) do
begin
if not FindNextFile(FH,cur) then Break;
if ShouldDelete(cur.cFileName) then
Del(Dir,cur.cFileName);
end;
finally
Windows.FindClose(FH);
end;
end;


 
_dEMOn   (2004-01-15 00:12) [9]

Спасибо за PROCEDURE и FUNCTION



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

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

Наверх




Память: 0.48 MB
Время: 0.007 c
4-83307
Bers
2003-11-20 09:59
2004.01.26
Реестр windows с помощью API


6-83230
PN Soft
2003-10-28 13:24
2004.01.26
e-mail


1-83184
Unn
2004-01-12 21:53
2004.01.26
Редактирование


14-83269
LM
2004-01-05 10:36
2004.01.26
Помогите разобраться с UpperCase


14-83280
DCoder
2003-12-26 16:53
2004.01.26
Кто на чем работает? (конфигурация ПК)