Запрограммировать кнопку поиск

[ИвановБ]

Запрограммируйте кнопку «Найти», так чтобы на панели «Найдены запись» отображалась вся информация о выбранном элементе списка (для данного примера о лице, фамилия которого указанна в поле редактирования Edit5 «Введите фамилию»). Если по данному запросу ничего не обнаружено, то выведите сообщение об этом.

Вот проект помогите кто-нибудь

[FaTaL]

Вы решили поделиться с нами Вашим заданием?
Потому что никакого вопроса от Вас не видно и даже знака вопроса нет.

[ИвановБ]

Нужна помощь как лучше реализовать поиск, чтобы информация отображалась в 4 полях EDit из компонента StringGrid1, при вводе автора или выбора его из компонента ComboBox1?

Надеюсь понятно объяснил.

[ИвановБ]

вот

[Аватар]

В стринггриде поиск реализуется просто в цикле перебором всех строк и сравнением значений каких-то колонок с заданными значениями. Нашел - выход из цикла и в эдиты перемещай данные из строки. Это и будет лучшая реализация поиска

[ИвановБ]

Можете на примере или в качестве примера показать как это должно выглядеть?

[Аватар]

А как же ты его заполнял, если не можешь в цикле прочитать?

[ИвановБ]

У меня стринггрид заполняется тогда когда я открою файл. Но впринципе кажется идея понятна сейчас попробую реализовать.

[ИвановБ]

Так и никак что не соображу по поиску, вот нашел кажется пример. Но в этом примере как я понял результат поиска выводится во второй компонент StringGrid2?
То есть мне достаточно переделать что бы выводилось в поля Edit так?

[ИвановБ]

var i,j,k:integer; {номер строки данных в таблице}
begin
if Edit5.Text='' then begin showmessage('Введите строку для поиска');exit;end;
k:=0;
for i:=0 to stringgrid2.RowCount-1 do
for j:=1 to stringgrid2.ColCount-1 do
stringgrid2.Cells[i,j]:='';

for i:=1 to N do
begin
if StringGrid1.Cells[3,i]=Edit5.Text
then
begin
k:=k+1;
stringgrid2.Cells[0,k]:=stringgrid1.Cells[0,i];
stringgrid2.Cells[1,k]:=stringgrid1.Cells[1,i];
stringgrid2.Cells[2,k]:=stringgrid1.Cells[2,i];
stringgrid2.Cells[3,k]:=stringgrid1.Cells[3,i];
stringgrid2.Cells[4,k]:=stringgrid1.Cells[4,i];
end;

end;

if stringgrid2.Cells[0,1]='' then Showmessage('Ничего не найдено');
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.