|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
повторяющиеся значения в ячеейке
как найти повторяюшся значения в ячеейки stringgrid и выделить ?
|
#2
|
||||
|
||||
Смотрите здесь
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
там про поиска
я не хочу поиск , я хочу чтобы проверил повторения в первом столбце помогите пожалуста |
#4
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i, b, c: integer; s: string; begin with StringGrid1 do begin for i := 0 to rowCount-1 do (Objects[0, i] as TBoolObj).flg:= false; for i := 0 to rowCount-1 do begin s:= Cells[0, i]; c:= 0; for b := 0 to rowCount-1 do if Cells[0, b] = s then Inc(c); if c > 1 then (Objects[0, i] as TBoolObj).flg:= true; end; Repaint; end; {with} end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
ошибку выдаеть 'Access violotion at address 00530E42 in module project1'
|
#6
|
||||
|
||||
В D7 ошибок нет, см бинарник
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
спасибо, а как можна сделать чтобы ввыведились толка самые повторяющие
|
#8
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i, b, c: integer; s: string; ia: array of integer; begin with StringGrid1 do begin for i := 0 to rowCount-1 do (Objects[0, i] as TBoolObj).flg:= false; SetLength(ia,rowCount); for i := 0 to rowCount-1 do begin s:= Cells[0, i]; for b := 0 to rowCount-1 do if Cells[0, b] = s then Inc(ia[i]); end; b:= 0; for i := 0 to rowCount-1 do if ia[i]> b then begin b:= ia[i]; c:= i; end; for i := 0 to rowCount - 1 do if Cells[0,i] = Cells[0,c] then (Objects[0, i] as TBoolObj).flg:= true; Repaint; end; {with} end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 18.11.2014 в 23:59. Причина: DML |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
delpi12 (18.11.2014)
|
#9
|
|||
|
|||
спасибо за помощ брат
|