|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.11.2014, 19:16 | #21 |
Форумчанин
Регистрация: 30.12.2013
Сообщений: 466
|
begin
l:=TObjectList.create(free); //Список элементов //Заполним грид with StringGrid1 do for i:=0 to RowCount-1 begin for j:=0 to ColCount-1 begin Cells[j,i]:=IntToStr(Random(5)); end; end; в begin тоже ошибки |
17.11.2014, 19:19 | #22 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
alman12, ну ёлкин дрын, первый раз циклы видишь? do говорит о чем то? Копипаста не прокатит, нужно хоть чуть-чуть самому думать
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
17.11.2014, 20:03 | #23 |
Форумчанин
Регистрация: 30.12.2013
Сообщений: 466
|
for i:=0 to l.Count-1 do if l[imax].cnt<l[i].cnt then imax:=i;
в imax тоже ощибка выдает |
17.11.2014, 20:08 | #24 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну да. Писал с коленки, увы опечатки допустил. Нет мне, ф0шисту, прощения.
Цитата:
I'm learning to live...
|
|
17.11.2014, 20:18 | #25 |
Форумчанин
Регистрация: 30.12.2013
Сообщений: 466
|
for i:=0 to l.Count-1 do if l[imax].cnt<l[i].cnt then imax:=i;
cnt тоже ошибка |
18.11.2014, 00:15 | #26 |
Форумчанин
Регистрация: 30.12.2013
Сообщений: 466
|
что такой cnt ?
|
18.11.2014, 07:30 | #27 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А это поле, в котором хранится по задумке количественная вхождений в массив.
I'm learning to live...
|
18.11.2014, 18:21 | #28 |
Форумчанин
Регистрация: 30.12.2013
Сообщений: 466
|
ошибку выдает там
я нащел такой код но так выделяется все повторяющие строки как сделать чтобы выделились толка ячейки в столбце и как сделат чтобы выделились самые повторяющие Код:
Последний раз редактировалось Stilet; 18.11.2014 в 20:43. |
18.11.2014, 21:49 | #29 |
Форумчанин
Регистрация: 30.12.2013
Сообщений: 466
|
я нащел такой код но так выделяется все повторяющие строки
как сделать чтобы выделились толка ячейки в столбце и как сделат чтобы выделились самые повторяющие Код: procedure TForm1.StringGrid1DrawCell(Sender: TObject; vCol, vRow: Integer; Rect: TRect; State: TGridDrawState); begin with (Sender as TStringGrid), Canvas do if (Objects[0, vRow] as TBoolObj).flg then begin Brush.Color:= clHighlight; Font.Color:= clWhite; FillRect(Rect); TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[vCol, vRow]); end else begin Brush.Color:= Color; Font.Color:= Font.Color; FillRect(Rect); TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[vCol, vRow]); end; end; procedure TForm1.BitBtn1Click(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; |
18.11.2014, 23:21 | #30 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Какой настойчивый парень... Преподы наверное в восторге )
Вот смотри: Код:
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос повторяющихся значений | Artem_85 | Microsoft Office Excel | 6 | 07.11.2012 13:49 |
удаление из таблицы повторяющихся значений | CodeNOT | PHP | 2 | 28.03.2011 12:01 |
Удаление повторяющихся значений в строке | aimk0 | Помощь студентам | 7 | 11.10.2010 16:58 |
Подсчет повторяющихся значений поля | JSilver | БД в Delphi | 9 | 04.03.2009 10:34 |
Поиск повторяющихся значений | Flangini | Microsoft Office Excel | 23 | 22.02.2008 15:57 |