С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
TechnoHack
1 / 1 / 0
Регистрация: 09.03.2014
Сообщений: 32
1

Поиск в StringGrid

23.04.2014, 19:10. Просмотров 345. Ответов 0
Метки нет (Все метки)

Нужно просто доработать процедуру до того, чтоб она делала к примеру так: ввел какое-то значение, нажал на кнопку "Поиск", оно его нашло, я изменил что мне надо в этой строке. Снова нажимаю на кнопку "Поиск" и оно продолжает искать такое же значение, находит я снова что-то меняю и снова жму на кнопку "Поиск"(допустим больше нету такого же значения), и мне вылетает сообщение: Больше ничего не найдено.
Очень надеюсь на вашу помощь!

Предоставляю саму процедуру поиска:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 var
    S : TStrings;
    St : String;
    i, j, Row, Col : Integer;
    poisk:string;
begin
    if Edit3.Text='' then
    begin
      ShowMessage('Параметр поиска не задан')
    end;
 
  poisk:=Edit3.Text; // берет значение для поиска
  Col:=1; // индекс столбца, в котором ведется поиск
  St:=AnsiUpperCase(poisk);
  S:=SG1.Cols[Col];
  Row:=-1;
  for i:=SG1.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
      // я так понял что тут нужно написать перенос результатов поиска из SG1 в SG2
      
      
      // выделяет найденную ячейку в SG1 и показывает сообщение
      SG1.Selection := TGridRect( Rect(Col, Row, Col, Row) );
      ShowMessage('Найден в строке с индексом: ' + IntToStr(Row));
    end
      else
        begin
          ShowMessage('Ничего не найдено');
        end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2014, 19:10
Ответы с готовыми решениями:

Поиск в StringGrid
Есть код поиска, полностью рабочий, но он делает поиск по всем символам нужного параметра, а нужно...

поиск по stringgrid
всем привет! подскажите, как сделать поиск по таблице stringgrid. надо чтобы при нажатии на кнопку...

Поиск в StringGrid-де
Здравствуйте, тут такая проблемка, мне нужно найти в гриде определенные записи и подсчитать их, так...

Поиск в StringGrid
Не получается осуществить вывод в memo ударников. Сделала отличников, не аттестованных, но с...

Поиск Stringgrid
Не пойму как отобразить найденные строки (поиск идет по 2 столбцу) procedure...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2014, 19:10

StringGrid и поиск
Есть массив из 2 столбцов-зависимость давления от времени. Далее у нас есть время. Как, зная это...

Поиск в StringGrid
Доброго времени суток ! Подскажите как можно организовать поиск так, чтоб когда ты вводишь, к...

Поиск в Stringgrid
Добрый день! Помогите пожалуйста с вопросом. Мне нужно осуществить поиск построчно . Если найдена...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru