[dj-soul]

Идея такова: Вводишь ключевые слова, к примеру "животные", тыкаешь поиск и показываются все картинки с животными.
Имеется вот такой код

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
   myFile       : TextFile;
   fileName     : string;
   fullFilePath : string;
   dir1, dir2   : string;

 begin
 
   fileName := Edit1.Text+'*.jpeg'+'*.jpg'+'*.png';

   dir1 := 'E:\';
   dir2 := 'D:\';

   fullFilePath := FileSearch(fileName, dir1+';'+dir2);

   if fullFilePath = ''
   then ShowMessage(' Увы, ничего не найдено ');
 else 
 end;


end.

Админ: Пользуемся тегами для оформления кода!

сам процесс поиска уже есть, но не знаю как осуществить отображение картинок, по задумке после команды "else" идёт команда отображения картинок в окне программы, но увы, что то ничего не приходит в голову как это можно сделать.
прошу помочь

[YVitaliy]

Чтоб отображать катринки, нужно их загружать, например, в ListWiev, используя путь, возвращаемый FileSearch. Такжк можно использовать DrawGrid - вариантов много. Но чтобы искать по нескольким расширениям файла, я думаю, нужно организовать поиск для каждого расширения отдельно. Да и по поддиректориям поиск происходить не будет в выше приведенной реализации...