Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > как сделать найденную строку поиском чтоб она выде

Автор: weg 16.11.2008, 18:04

Не подскажите как сделать найденную строку поиском чтоб она выделялась?

Код


procedure TfrmFind.btnOkClick(Sender: TObject);
var
  i:byte;
begin
  for i:=0 to AllFile.Count-1 do
    if IntToStr(Nom_bus(AllFile[i]))=edtStringFind.Text then
     ShowMessage(IntTOStr(i+1));
        //Тут должен быть переход на искомую ячейку i  }
    frmFind.Close;
end;

Автор: Poseidon 16.11.2008, 18:49

Цитата(weg @ 16.11.2008, 18:04

)

Не подскажите как сделать найденную строку поиском чтоб она выделялась?

Где?

Автор: weg 16.11.2008, 19:57

в StringGrid1 ну вот там чтоб он ее просто выделил

Автор: Poseidon 17.11.2008, 00:20

Держи. Было у меня в одном проекте.

Код

procedure StringGridRowSelect(var Grid: TStringGrid; const SelectRow: Integer);
var
  GridRect: TGridRect;
begin
  GridRect.Left:= Grid.FixedCols;
  GridRect.Right:= Grid.ColCount-1;
  GridRect.Top:= Row;
  GridRect.Bottom:= Row;
  Grid.Selection:= GridRect;
end;

Автор: weg 17.11.2008, 13:52

спасибо огромное smile