Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.27;
Скачать: 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 вся ветка

Текущий архив: 2002.06.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-88894
zeos
2002-06-13 20:21
2002.06.27
Неактивная кнопка в MessageDialog.


3-88736
PETR_
2002-06-04 11:18
2002.06.27
DBGrid и логические поля


14-89002
antistatic
2002-05-23 18:32
2002.06.27
Где можно скачать старые версии Windows


14-89017
OOPS!!
2002-05-23 15:25
2002.06.27
Photoshop, Winamp, CorelDraw, 3DStudio, Half-Life, Quake, ACDSEE.


1-88851
vajo
2002-06-17 14:50
2002.06.27
Большой текстовый файл