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