Поиск по StringGrid и вывод значения в этот же StringGrid

mkv
аватар: mkv
Звание: Энтузиаст
Сообщений: 153

Всем привет. Как правильно можно реализовать поиск по StringGrid. Есть данные ячейках. Есть элемент Edit.
Вводим слово в Edit идет поиск по StringGrid, если строки найдены - отобразить, все лишнее не подходящее под поиск убрать. Пока вот, что реализовал

procedure TForm1.Button1Click(Sender: TObject);
Var
i,j:integer;
begin
With Search_SG do
begin
for i:=0 to ColCount-1 do
begin
for j:=0 to RowCount-1 do
begin
if Cells[i,j]= Edit1.text then
begin
StringGrid1.Visible:=True;
StringGrid1.Cells[0, 0] := '1'; // имена колонок
StringGrid1.Cells[1, 0] := '2'; // имена колонок
StringGrid1.Cells[2, 0] := '3'; // имена колонок
ShowMessage('Значениe ' +Edit1.text+ ' ячейка['+IntTostr(I+1)+';'+IntTostr(j+1)+']');
Exit;
end;

end;

end;

end;
end;

mkv
аватар: mkv
Звание: Энтузиаст
Сообщений: 153

Нашел примерное решение на DELPHI, как в статье ]]>http://www.delphisources.ru/pages/faq/base/search_and_filter.html]]> но , в lazarus пока не получается перенести.

mkv
аватар: mkv
Звание: Энтузиаст
Сообщений: 153

Уже разобрался

аватар: jimmyjonezz
Звание: Мастер
Сообщений: 2470

mkv написал(а):

Уже разобрался

молодчина.

__________________

welcome to stravaganza.ru