Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
TechnoHack
1 / 1 / 0
Регистрация: 09.03.2014
Сообщений: 29
#1

Поиск в StringGrid - Delphi

23.04.2014, 19:10. Просмотров 333. Ответов 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 (Delphi):

Поиск в Stringgrid - Delphi
Здравствуйте! Подскажите, пожалуйста, как сделать поиск данных в Stringgrid по определенному столбцу(например по 3 столбцу) через Edit...

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

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

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

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

Поиск в StringGrid - Delphi
Помогите пожалуйста! Дана таблица StringGrid1. В ней столбцы: №, Фамилия, Имя, Отчество, Пол, Год рождения, Телефон. Пользователь вводит...

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

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

Поиск в StringGrid - Delphi
Здравствуйте, помогите пожалуйста. Дан PageControl в нем на первой вкладке расположен StringGrid. На второй вкладке (TabSheet2) расположено...

Поиск в StringGrid - Delphi
procedure FindClick(Sender: TObject); var i:integer; e:string; Col, Row : Integer; begin e:=InputBox ('Поиск текста','',''); ...

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


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

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

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