Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2007, 10:43   #1
nimf
Пользователь
 
Регистрация: 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;
nimf вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходима помощь в дописании программы 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