|
Вопрос # 3 717/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
поискал в инете нигде не могу найти решение своего вопроса(мож плохо искал)
Скажите пожалуйста, как в Delphi сделать сканирование директории на присутсвие файлов(в данном случае изображений(только bmp, jpg, png, gif)) и добавление их в ListView где изображение пункта будет соответвовать текущему найденому изображению(не пиктограммы, а содержимого, все изображения max 32x32), а имя пункта имени найденого файла без расширения.
Заранее спасибо!
Примечание #1 (30 января 2010, 18:59): И можно без стороних компонентов.
 |
Вопрос задал: Reved (статус: Посетитель)
Вопрос отправлен: 30 января 2010, 18:56
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: vlsavkin
Здравствуйте, Reved!
Посмотрите эти ссылки, они могут оказаться полезными.
http://rmklever.com/?p=105
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1187098476&n=7
 |
Ответ отправил: vlsavkin (статус: 2-ой класс)
Время отправки: 31 января 2010, 11:56
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 30 января 2010, 22:04; участников в обсуждении: 1.
|
IlluminatI (статус: 2-ой класс), 30 января 2010, 22:04 [#1]:
Привет Reved!
Вот вам пример такого кода:
Path: путь к папке
Mask: по какой маске искать (в вамшем случае "bmp", итп)
aListView: куда добавлять (ListView) 
procedure ScanDirMask(Path: string; Mask: string; aListView: TListView);
var
SR: TSearchRec;
begin
try
if (FindFirst(Path + '*.'+Mask, faAnyFile, SR) = 0) then
begin
repeat
if (SR.Attr (не равно) faDirectory) then
with aListView.Items.Add do
begin
Caption:=SR.Name;
ImageIndex:=0; // здесь можете поставитьь свою картинку
end;
until FindNext(SR) (не равно) 0 ;
FindClose(SR);
end;
except
MessageDlg(ESearchDirError, mtError, [mbOk], 0);
end;
end;
Насчет текущего изображения - это нужно иконку доставать из exe (или другого файла), так что гуглите на эту тему.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
