[Suzannsv]

сделала словарь, мне нужно чтоби когда я ввожу слово в строке Edit оно виделялось в stringGrid . Не могу их прив*язать друг к другу. Помогите пожалуйста((
сделала поиск через меню, а нужно сделать еше такой
архив с програмой прикрепила

неужели никто не может помочь =((

[RusMaXXX]

вот фрагмент кода:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S : TStrings;
  St : String;
  i, Row, Col : Integer;
begin
  //Индекс столбца, в котром будем проводить поиск.
  Col := 0;
 
  St := AnsiUpperCase( '<Искомый шаблон>' );
  S := StringGrid1.Cols[Col];
  Row := -1;
  for i := StringGrid1.FixedCols to S.Count - 1 do begin
    if Pos( St, AnsiUpperCase( S.Strings[i] ) ) > 0 then begin
      Row := i;
      Break;
    end;
  end;
 
  if Row > -1 then begin
    //Делаем так, чтобы найденная строка оказалась верхней видимой строкой.
    StringGrid1.TopRow := Row;
    //Выделяем найденную ячейку.
    StringGrid1.Selection := TGridRect( Rect(Col, Row, Col, Row) );
 
    ShowMessage('Шаблон найден в строке с индексом: ' + IntToStr(Row));
  end else begin
    ShowMessage('Шаблон не найден.');
  end;
end;

[Suzannsv]

насколько понимаю то у вас создана кнопка для поиска...
мне нужно без кнопки а вот так:
когда ввожу букву в строке едит оно находило слова на эту букву в стринггрид

[Alegun]

Сообщение от Suzannsv

...мне нужно без кнопки а вот так:
когда ввожу букву в строке едит оно находило слова на эту букву в стринггрид

Вот это поможет, только убрать немного лишнего: http://www.delphisources.ru/pages/so...r/abc-dic.html

[Suzannsv]

там DBGrid, а не стринггрид =((
да, такой словарь сделать - круто

Спасибо, с большыми мучениями я сама уже всьо сделала. Есле кому-то будет надо пишите!!!!