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

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