Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=539753 Sat, 11 Dec 2004 08:19:51 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=539753 Kostas, о ресурсах не почёшься? :)]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=539418 Fri, 10 Dec 2004 19:35:28 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=539418
    procedure TForm1.Button2Click(Sender: TObject);
    Var i,j,g:integer;
    begin
    For j:=1 To Form2.StringGrid1.ColCount-1 Do
     For i:=1 To Form2.StringGrid1.RowCount-1 Do
      Form2.StringGrid1.Cells[j,i]:='';
    Form2.StringGrid1.RowCount:=2;
     
    g:=0;
     
    For i:=0 To StringGrid1.ColCount-1 Do
     For j:=0 To StringGrid1.RowCount-1 Do
      if pos(AnsiUpperCase(Edit3.Text), AnsiUpperCase(StringGrid1.Cells[i,j]))>0 then
       begin
        g:=g+1;
        Form2.StringGrid1.Rows[g].Assign(StringGrid1.Rows[j]);
        Form2.StringGrid1.RowCount:=Form2.StringGrid1.RowCount+1;
       end;
     
    //Показываем результаты поиска
    Form2.StringGrid1.RowCount:=Form2.StringGrid1.RowCount-1;
    Form2.StringGrid1.Rows[0].Assign(StringGrid1.Rows[0]);
    if Form2.StringGrid1.RowCount>1 then
     Form2.Show
    else
     begin
      Form2.StringGrid1.RowCount:=2;
      Form2.StringGrid1.FixedRows:=1;
      ShowMessage('Ничего не найдено!');
     end;
    end;
]]> Kostas Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=538338 Fri, 10 Dec 2004 00:05:05 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=538338 Цитата Curve,8.12.04, 21:15 @
    procedure TForm1.Button2Click(Sender: TObject);
    Var i,j:integer;
    begin
      For i:=i1 To StringGrid1.ColCount-1 Do
       For j:=j1 To StringGrid1.RowCount-1 Do
        if pos(AnsiUpperCase(Edit3.Text), AnsiUpperCase(StringGrid1.Cells[i,j]))>0 then
         begin
          StringGrid1.Row:=j;
          StringGrid1.Col:=i;
          i1:=i;
          j1:=j;
          break;
         end;
    //Если поиск закончен (или ничего не найдено) обнуляем переменные
     i1:=0;
     j1:=0;
    end;


1. Правильно будет не j1:=j; а j1:=j + 1;. Иначе мы будем всегда находить одно и то же значение.
2. И ещё после каждого прохода внутреннего цикла нужно обнулять j1.

    procedure TForm1.Button2Click(Sender: TObject);
    Var i,j:integer;
    begin
      For i:=i1 To StringGrid1.ColCount-1 Do
      begin
       For j:=j1 To StringGrid1.RowCount-1 Do
        if pos(AnsiUpperCase(Edit3.Text), AnsiUpperCase(StringGrid1.Cells[i,j]))>0 then
         begin
          StringGrid1.Row:=j;
          StringGrid1.Col:=i;
          i1:=i;
          j1:=j+1;//Вместо j1:=j
          break;
         end;
        j1:=0;//Чтобы искать во всем следующем столбце, а не в куске от j1 до конца
      end;
     i1:=0;
    end;
]]> J. Bravo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=538154 Thu, 09 Dec 2004 18:59:51 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=538154 Art4, Только если отрисоавывать "выделение" самому.]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=538153 Thu, 09 Dec 2004 18:56:41 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=538153 Art4 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537581 Thu, 09 Dec 2004 10:56:48 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537581 Цитата Kostas,9.12.04, 13:51 @
Слушайте, а как выделить несколько ячеек StringGrid'a?

    procedure TForm1.Button1Click(Sender: TObject);
    var
      myRect: TGridRect;
    begin
      myRect.Left := 3;
      myRect.Top := 1;
      myRect.Right := 2;
      myRect.Bottom := 4;
      DrawGrid1.Selection := myRect;
    end;

Взято из дельфийского хелпа.]]> s-mike Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537577 Thu, 09 Dec 2004 10:51:49 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537577
Добавлено
Может я чего-то неправильно делаю.. можете кинуть исходничек с реализацией этого поиска?]]> Kostas Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537535 Thu, 09 Dec 2004 10:20:32 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537535 Kostas, правильно. Делай хоть break, хоть Exit без разницы, если тебе нужно просто из цикла выйти. А потом после того как юзер нажмёт кнопку "Продолжить поиск" снова запускай свои циклы, начиная с переменных, которые ты запомнил.]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537452 Thu, 09 Dec 2004 09:15:43 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=537452 Kostas Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536970 Wed, 08 Dec 2004 18:15:24 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536970 Kostas, запоминай позиции, на которых поиск остановился.]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536969 Wed, 08 Dec 2004 18:15:21 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536969 Kostas, сохраняй i и j в отдельные глобальные переменные - i1 и j1 (для начала присвой им по нулю). тогда у тебя получится:
    procedure TForm1.Button2Click(Sender: TObject);
    Var i,j:integer;
    begin
      For i:=i1 To StringGrid1.ColCount-1 Do
       For j:=j1 To StringGrid1.RowCount-1 Do
        if pos(AnsiUpperCase(Edit3.Text), AnsiUpperCase(StringGrid1.Cells[i,j]))>0 then
         begin
          StringGrid1.Row:=j;
          StringGrid1.Col:=i;
          i1:=i;
          j1:=j;
          break;
         end;
    //Если поиск закончен (или ничего не найдено) обнуляем переменные
     i1:=0;
     j1:=0;
    end;
]]> Curve Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536909 Wed, 08 Dec 2004 16:48:47 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536909
    procedure TForm1.Button2Click(Sender: TObject);
    Var i,j:integer;
    begin
      For i:=0 To StringGrid1.ColCount-1 Do
       For j:=0 To StringGrid1.RowCount-1 Do
        if pos(AnsiUpperCase(Edit3.Text), AnsiUpperCase(StringGrid1.Cells[i,j]))>0 then
         begin
          StringGrid1.Row:=j;
          StringGrid1.Col:=i;
          Exit;
         end;
    end;

Все правильно ищется, но вот как сделать так, чтобы при повторном нажатии кнопки поиск продолжадся, а не начинался сначала.. уже все варианты перепробовал :wall:]]> Kostas Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536683 Wed, 08 Dec 2004 13:01:17 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536683
Цитата

function AnsiPos(const Substr, S: string): Integer;

Description

Call AnsiPos to obtain the byte offset of the Substr parameter, as it appears in the string S. For example, if Substr is the string "AB", and S is the string "ABCDE", AnsiPos returns 1. If Substr does not appear in S, AnsiPos returns 0.
]]> s-mike Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536674 Wed, 08 Dec 2004 12:48:38 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=536674 Kostas Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=535775 Tue, 07 Dec 2004 17:06:24 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=535775 Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=535758 Tue, 07 Dec 2004 16:45:11 +0000 Поиск в StringGrid https://forum.sources.ru/index.php?showtopic=75255&view=findpost&p=535758 всем ячейкам StringGrid, и при нахождении таковой - выделять строку, содержащую эту ячейку. При повторном нажатии кнопки нужно продолжать поиск, а не начинать его сначала. Поиск должен быть без учета регистра, не обязательно точное совпадение, сверху вниз и при достижении конца StringGrid'a начинать сначала.
Например: ищем текст 'кОМпьЮ' - должна найтись строка, содержащая ячейку 'Компьютер'. Надеюсь вам понятно и вы мне поможите.]]> Kostas Delphi: Общие вопросы