Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Загрузка имен файлов в Combobox   Найти похожие ветки 

 
dimonka   (2004-11-25 22:58) [0]

Подскажите, как можно загрузить в Combobox или Listbox список файлов текущего каталога


 
Игорь Шевченко ©   (2004-11-25 23:18) [1]

An application sends a CB_DIR message to a combo box to add names to the list displayed by the combo box. The message adds the names of directories and files that match a specified string and set of file attributes. CB_DIR can also add mapped drive letters to the list.

LB_DIR для ListBox


 
Vvika-sim   (2004-11-26 14:16) [2]

используй FindFirst с отребутами и FindNext чтоб перебрать все файлы в каталоге ну  и дабовляй методом Add
для указания Path Например ".\мой коталог\*.*"


 
GanibalLector ©   (2004-11-26 23:56) [3]


procedure TMainForm.ComboBox1DropDown(Sender: TObject);
var sr:Tsearchrec;dd1:string;
i:integer;
begin
combobox1.Items.Clear;
if findfirst("*.*",faanyfile,sr)=0 then
repeat
combobox1.Items.Add(sr.name);
until findnext(sr)<>0;
findclose(sr);
end;


 
Игорь Шевченко ©   (2004-11-27 01:38) [4]

GanibalLector ©   (26.11.04 23:56) [3]

Я сильно не завидую пользователю твоего кода. При каждом открытии ComboBoxа заполнение его списком файлов вряд ли ускорит работу программы.


 
GanibalLector ©   (2004-11-27 01:47) [5]

2 Игорь Шевченко
Согласен.Ну а кто сказал,что я этот код использую?Это так...для примера.dimonka попросил я показал.



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
4-1101539901
DelphiN!
2004-11-27 10:18
2005.01.16
Свойства ярлыка


1-1104563793
Dr. Genius
2005-01-01 10:16
2005.01.16
Программу - в системный трей


1-1104310242
Mr.V
2004-12-29 11:50
2005.01.16
TEdit


1-1103098374
kingdom
2004-12-15 11:12
2005.01.16
Как найти пересечение фигур


1-1104325019
Aleksandr.
2004-12-29 15:56
2005.01.16
Люди, какая версия для Define у Делфи 2005?