Показать сообщение отдельно
  #4  
Старый 05.02.2009, 20:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Самый простой способ - использовать БД.
Если не детилизироваться (нормализироваться) до упора, то у тебя будет 2 таблицы:
- Аптеки (инфа об аптеке)
- Лекарство (инфа о лекарстве + ссылка на аптеку).

Запрос поиска будет где-то такой:

Код:
SELECT L.*, A.*
FROM Лекарства L LEFT JOIN Аптека A ON L.ParentID = A.ID
WHERE UPPER(L.NAME) = UPPER(:Name1) AND
L.Price = (SELECT MIN(Price) FROM Лекарства WHERE UPPER(NAME) = UPPER(:Name2))

:Name1 и :Name2 - параметры, название лекарства, введенное в диалоге.
Ответить с цитированием