Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
kalanda
0 / 0 / 1
Регистрация: 06.02.2018
Сообщений: 307
1

В поиске добавить код если нет такого значения в стринггрид то вывести ошибку такого значения нет, если находит то вывод

01.05.2018, 21:01. Просмотров 803. Ответов 3
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button5Click(Sender: TObject);
 var i,j,k:integer;S:string;
begin
for i:=1 to sg.RowCount do
begin
if edit3.text=sg.cells[1,i] then
begin
k:=stringgrid1.RowCount-1;
stringgrid1.Cells[0,k]:=sg.cells[0,i];
stringgrid1.Cells[1,k]:=sg.cells[1,i];
stringgrid1.Cells[2,k]:=sg.cells[2,i];
stringgrid1.Cells[3,k]:=sg.cells[3,i];
stringgrid1.Cells[4,k]:=sg.cells[4,i] ;
stringgrid1.Cells[5,k]:=sg.cells[5,i] ;
stringgrid1.Cells[6,k]:=sg.cells[6,i] ;
stringgrid1.Cells[7,k]:=sg.cells[7,i] ;
stringgrid1.RowCount:=stringgrid1.rowcount+1;
 
end;   end;    end;
буду признателен.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2018, 21:01
Ответы с готовыми решениями:

Поиск по всему StringGrid-у, как сделать, чтобы выдавало ошибку, если значения в гриде нет?
procedure TForm2.Image13Click(Sender: TObject); var s:string; x,y,sx,sy:integer; begin...

Как сделать проверку, если такого значения нет в datagrid, то вывести ошибку?
Как сделать проверку, если такого значения нет в datagrid, то вывести ошибку for (int i = 0; i <...

ComboBox или как реализовать запись в него если нет такого значения
На данный момент делал так пока не начала вылазить не понятная ошибка в перечне Плотность хронятся...

Найти нужный элемент в массиве и вывести его индекс, если такого нет, то вывести -1
Нужно найти нужный элемент в массиве и вывести его индекс, если такого нету, то вывести -1. ...

Добавить значение в таблицу, только в том случае, если в таблице уже нету такого значения.
Есть метод добавления в таблицу данных. Как мне сделать так, чтобы значение добавилось только в том...

3
droider
Universal
Эксперт Pascal/Delphi
4532 / 2541 / 809
Регистрация: 04.10.2012
Сообщений: 9,259
01.05.2018, 23:23 2
Лучший ответ Сообщение было отмечено kalanda как решение

Решение

kalanda, правильно и красиво поиск реализуется так Поиск в StringGrid.
1
kalanda
0 / 0 / 1
Регистрация: 06.02.2018
Сообщений: 307
02.05.2018, 08:41  [ТС] 3
А не могли бы вы прокоментировать код что по ссылке? Что такое items index?
0
droider
Universal
Эксперт Pascal/Delphi
4532 / 2541 / 809
Регистрация: 04.10.2012
Сообщений: 9,259
02.05.2018, 21:15 4
Лучший ответ Сообщение было отмечено kalanda как решение

Решение

Цитата Сообщение от kalanda Посмотреть сообщение
прокоментировать код что по ссылке
Цитата Сообщение от kalanda Посмотреть сообщение
Что такое items index?
а где Вы там Items Index увидели?

Если речь о методе IndexOf(), то он возвращает порядковый номер первого совпадения заданной строки (без учета регистра по умолчанию) в списке (массиве строк). Если такая строка не найдена, то возвращает -1.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
begin
//...
  S := Edit1.Text;//задаем искомую строку
  Row := -1; //изначально строка не найдена
 //проходим циклом по всем столбцам грида (без фикс. колонок)
  for Col := 0 to Sg.ColCount - 1 do begin
//с помощью IndexOf() метода 
//ищем заданный текст в текущей колонке
    Row := Sg.Cols[Col].IndexOf(S);
//если текст найден (встретился хотя бы один раз), то прерываем цикл 
    if Row > -1 then Break;
  end;
 //выводим результат поиска
  if Row > -1 then
    ShowMessage('Значение найдено в ячейке: Col = ' + IntToStr(Col)
      + ', Row = ' + IntToStr(Row)) //если найдена искомая строка - показываем координаты ячейки
  else
    ShowMessage('Значение не найдено.'); //иначе сообщение об отсутствии искомого текста
end;
1
02.05.2018, 21:15
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2018, 21:15

В массиве X(n,m) определить каким по счету идет элемент Z, если такого элемента нет, то вывести соответствующе
В массиве X(n,m) определить каким по счету идет элемент Z, если такого элемента нет, то вывести...

Wordpress - если в “wp-content” нет такого файла, то отдать за место 404 код ответа 403. В htacess может как?
Доброго времени суток, уважаемые гуру. На сайте Wordpress имеется папка "wp-content", там лежат...

Дан массив NxN Обнулить элементы его центральной строки и столбца. если нет такого, то вывести сообщение об этом
Дан массив NxN Обнулить элементы его центральной строки и столбца. если нет такого, то вывести...


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

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

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