Определение ID записи по клику на ячейку в DBGrid

[Lokos]

Здравствуйте.
Необходимо получить Id записи из списка записей представленных в DbGrid. Получать необходимо по клику пользователя на ячейке.
Реализовал вот так

procedure TMainF.DBGrid1CellClick(Column: TColumn);
var
   integer:id;
begin
   DBGrid1.DataSource.DataSet.RecNo:=TStringGrid(DBGrid1).Row;
   id:=DBGrid1.DataSource.DataSet.FieldByName('id').AsInteger;
end;

В работе этого кода есть косяк. Когда пользователь первый раз после запуска программы нажимает на ячейку DBGrida то всегда выбирается Id первой записи. Последующие клики выбирают нужную запись. Из за чего это может происходить и как избежать такой ситуации

[Аватар]

Первая строка присвоения в RecNo вообще не нужна.

[Lokos]

тога при нажатии автоматом переключается на последнию запись и пока не прокрутишь скрол вообще не реагирует, после прокрутки скрола все норм.

и если удалить какую либо запись из таблицы или добавить то происходит тоже самое при первом нажатии выделяется последняя строка и DBGrid не реагирует пока не нажмешь на ползунок потом отрабатывает как положенно

[Serge_Bliznykov]

тога при нажатии автоматом переключается на последнию запись и пока не прокрутишь скрол вообще не реагирует, после прокрутки скрола все норм.

мне кажется, что Вы не всё рассказываете. у Вас явно работает какой-то ещё обработчик события. Вот он и приводит к подобному поведению. (проверяйте все обработчики событий, назначенных на DBGrid1 и связанный DataSet ).
О том, что Вы не говорите правду, свидетельствует хотя бы тот факт, что код

var
   integer:id;

вообще не должен компилироваться!!

[Lokos]

вы меня раскусили))) id глобальный))) у DBGrid'a 2 обработчика DBGrid1CellClick и DBGrid1DrawColumnCell во втором раскраска строк ее отключал эффекта не какого.
Нашел проблему

после манипуляций с записями выполняется вот такая функция

procedure TestConnectionForBase();
var i:Byte;
   count:Integer;
begin
   try
      count:=0;
      DataModule2.SDSMainForm.Close;
      DataModule2.SDSMainForm.DataSet.CommandText:='select * from vahta_table where FlagExit=0';
      DataModule2.SDSMainForm.Active:=True;
      DataModule2.SDSMainForm.Open;
      DataModule2.SDSMainForm.Last;//проблема вот в этой строчке переход на последнюю запись.
      count:=DataModule2.SDSMainForm.RecordCount;
      MainF.lblStatus.Font.Color:=clLime;
      MainF.lblStatus.Caption:='Статус подключения к базе: Подключено';
     // if count>1 then
       //  begin
            for i := 1 to 2 do
               MainF.DBGrid1.Fields[0].Visible:=False;
            MainF.DBGrid1.Fields[7].Visible:=False;
            for i := 1 to 2 do
               MainF.DBGrid1.Fields[8].Visible:=False;
            for i := 1 to 3 do
               MainF.DBGrid1.Fields[9].Visible:=False;
       //  end;
   except
      on E : Exception do
              begin
                // if chkError.Checked=true then
                  ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
                  MainF.lblStatus.Font.Color:=clRed;
                  MainF.lblStatus.Caption:='Статус подключения к базе: Нет подключения';
              end;
   end;
end;

но без нее я не получу количество выбранных записей. Возможно их как то еще можно получить?
В принципе эту функцию я переправил. Но не могли бы вы подсказать как организовать адекватный подсчет выбранных записей

[Serge_Bliznykov]

Сообщение от Lokos

вы меня раскусили))) id глобальный)))

Ага, попался!

Сообщение от Lokos

но без нее я не получу количество выбранных записей. Возможно их как то еще можно получить?

О. А теперь серьёзно.
Вы хотите сказать, что строчка:

    count:=DataModule2.SDSMainForm.RecordCount;

не возвращает количество записей?!!!


и ещё. важно.
из этих двух строк кода:

      DataModule2.SDSMainForm.Active:=True;
      DataModule2.SDSMainForm.Open;

оставьте ОДНУ (я бы оставил Open - но это, в принципе, не имеет разницы).
Вы ДВАЖДЫ открываете датасет!!

[Аватар]

Так попробуйте

  DataModule2.SDSMainForm.Last;
  count:=DataModule2.SDSMainForm.RecordCount;
  DataModule2.SDSMainForm.First;

Можно кол-во записей и отдельным запросом получить. А с циклами вообще не понял - зачем одно и то же в цикле делать?

[Lokos]

опа с двойным открытием и впрямь косяк.

RecordCount насколько я знаю возвращает номер текущей записи.

следовательно если выполнить метод Last то выполнится переход на последнюю запись и RecordCount покажет количество записей) Иначе не как(

хм сейчас попробовал все работает и без Last.
Идиотом себя ощущаешь до этого не работало

[Lokos]

Сообщение от Аватар

Так попробуйте

  DataModule2.SDSMainForm.Last;
  count:=DataModule2.SDSMainForm.RecordCount;
  DataModule2.SDSMainForm.First;

Можно кол-во записей и отдельным запросом получить. А с циклами вообще не понял - зачем одно и то же в цикле делать?

с циклом сам не знаю проект год назад делал( может что то было(

Вспомнил
в принципе можно обойтись и без циклов но тогда придется сделать такую запись

MainF.DBGrid1.Fields[0].Visible:=False;
MainF.DBGrid1.Fields[0].Visible:=False;
MainF.DBGrid1.Fields[7].Visible:=False;
MainF.DBGrid1.Fields[8].Visible:=False;
MainF.DBGrid1.Fields[8].Visible:=False;
MainF.DBGrid1.Fields[9].Visible:=False;
MainF.DBGrid1.Fields[9].Visible:=False;
MainF.DBGrid1.Fields[9].Visible:=False;

[Аватар]

опа с двойным открытием и впрямь косяк.

На самом деле это масло маслянное. Open просто делает Active:=True; а SetActive ничего не делает, если свойство не меняется. Но то что одно из них лишнее - факт

RecordCount насколько я знаю возвращает номер текущей записи.

Не правильно. Возвращает кол-во записей в DataSet- е. Last делают для того, что бы все нужные данные понянуло с базы, тогда и RecordCount правильный будет