|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.08.2007, 10:43 | #1 |
Пользователь
Регистрация: 29.08.2007
Сообщений: 51
|
Необходима помощь
Кто может подскажите как справиться с проблемой. В этой процедуре при работе с Gridом выделяю одну запись и он автоматически выделяет все похожие, однако при выборе другой записи выделения с с предыдуших записей не снимается.
Очень нужны ваши советы! procedure TForm1.Button1Click(Sender: TObject); var str, strQ: String; j: Integer; begin if (grid.SelectedCount < 1) then begin exit; end; Grid.BeginUpdate; str := Grid.Cell[Grid.SelectedColumn, Grid.SelectedRow].AsString; for j := 0 to Grid.RowCount - 1 do begin strQ := Grid.Cell[Grid.SelectedColumn, j].AsString; if (strQ = Str) and not Grid.Selected[j] then Grid.Selected[j] := true; end; Grid.EndUpdate; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Необходима помощь в дописании программы | ALIZE | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 09.12.2007 18:13 |
Необходима помощь с кроссбраузерностью | sdevil | HTML и CSS | 1 | 24.10.2007 01:55 |
необходима помощь специалиста | Ирина | Свободное общение | 0 | 09.11.2006 15:52 |