Идея такова: Вводишь ключевые слова, к примеру "животные", тыкаешь поиск и показываются все картинки с животными.
Имеется вот такой код
Код:
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" идёт команда отображения картинок в окне программы, но увы, что то ничего не приходит в голову как это можно сделать.
прошу помочь
