Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Вниз
Господа!!! Помогите новичку, плз... Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c