Скачать: CL | DM;

Господа!!! Помогите новичку, плз...   Найти похожие ветки 

← →
angelcom   (2002-06-15 11:00) [0]

Как указав папку вывести список файлов в CheckListBox по маске (*.wav) с их размером
Буду очень признателен за примерчик

---

← →
AK-74 ©   (2002-06-15 11:16) [1]


...
StatusBar1: TStatusBar;
SDir: TDirectoryEdit;
SList: TRxCheckListBox;
...

procedure TForm1.FillList ;
var
sr: TSearchRec;
FileAttrs: Integer;
begin
StatusBar1.SimpleText := "Ищем файлы...";
SList.Clear;
FileAttrs := faAnyFile;

if FindFirst(SDir.Text+"\*.wav", FileAttrs, sr) = 0 then
begin
with Form1.SList do
begin
if ((sr.Attr and faDirectory) <> sr.Attr) then
begin
Items.Add(sr.Name+IntToStr(sr.Size));
Checked[Items.Count-1] := True // если надо сразу отметить
end;
while FindNext(sr) = 0 do
begin
if ((sr.Attr and faDirectory) <> sr.Attr) then
begin
Items.Add(sr.Name+IntToStr(sr.Size));
Checked[Items.Count-1] := True
end;
end;
FindClose(sr);
end;
end;
end;

---

← →
angelcom   (2002-06-15 12:24) [2]

Огромное спасибо АК-74

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c