| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Господа!!! Помогите новичку, плз... [D5]
angelcom © (2002-06-15 11:00:00)Как указав папку вывести список файлов в CheckListBox по маске (*.wav) с их размером
Буду очень признателен за примерчик
angelcom (2002-06-15 12:24:00) [1]Огромное спасибо АК-74
AK-74 (2002-06-15 11:16:00) [2]
...
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;
| |
