DBGrid row count

[yordan]

 Hi, I want to ask if there is a function that returns the number of rows in a DBGrid? If not please give me a hint how to count the rows in DBGrid.
 Thank you!
 Regards, Yordan

[yordan]

OK I solved that one. If anyone is interested I used the sqlquery1.RecordCount (sqlquery1 is the query that provides the data for the DBGrid). But now I have a different question : 
 I want to select the row from DBGrid1 that has a value in the first column equal to a value entered in an edit box.
 It should look something like this:
    for i:=1 to (sqlquery1.RecordCount) do begin
      if dbgrid1.Columns[0].Field.AsString = nomer_ed.Text then
       dbgrid1.RowSelect;
     end ;         
 But there isn't a function RowSelect.
 Could you please help         

[Mando]

Hi, use this:

Code: [Select]

if dbgrid1.Columns[0].Field.AsString = nomer_ed.Text then
   dbgrid1.SelectedRows.CurrentRowSelected:=true


regards

[yordan]

It doesn't work. The first row(which is selected by default when runnin the program) stays selected. 

[Mando]

You must move the active record:

this a better way to do it:

Code: [Select]

 with dbgrid1.DataSource.DataSet do
  begin
     first;
     while not eof do
     begin
        if dbgrid1.Columns[0].Field.AsString = nomer_ed.Text then
          dbgrid1.SelectedRows.CurrentRowSelected:=true
       next;
     end ;          
  end;


[yordan]

procedure TForm1.nomer_edKeyPress(Sender: TObject; var Key: char);
begin
   if Key = #13 then //Enter
   begin
  with dbgrid1.DataSource.DataSet do
  begin
    first;
     while not eof do
     begin
        if dbgrid1.Columns[0].Field.AsString = nomer_ed.Text then
          dbgrid1.SelectedRows.CurrentRowSelected:=true ;
        next;
     end ;
  end;     
 I tried this code but still no luck now it selects only the last row from DBGrid1, no matter what I enter in the nomer_ed.Text
 If someone has any other ideas why this is not working please help.
 Thank you                          

[Mando]

Hi

Set dgMultiselect in Options of the dbGrid.

Set dgPersistentMultiselect if you want to keep selected rows.


if you allow me some advice: do not expect to find it all done ... must investigate and play with the controls.

regards.

[yordan]

Found it 
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
//var i: integer;
begin
 // i:=0;
     if key=13 then
   begin
  //   with dbgrid1.DataSource.DataSet do
 // begin
   // first;
     while not dbgrid1.DataSource.DataSet.EOF do
     begin
        if dbgrid1.Columns[1].Field.AsString = edit1.Text then
         begin
          dbgrid1.SelectedRows.CurrentRowSelected:=true ;
          break;
         end;
        dbgrid1.DataSource.DataSet.Next;
     end ;
  end;
  // end ;
end;
                                         

[yordan]

I wouldn't have done it without your help Mando thanks for the hint about dbgrid1.SelectedRows.CurrentRowSelected:=true I was stuck on this one for days

[Mando]

Hi.

your code only selects one record (the first match the condition). In addition, the first from the active record.

To achieve this, is better use "locate".

Code: [Select]

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
     if key=13 then

       if dbgrid1.DataSource.DataSet(dbgrid1.Columns[1].Field.AsString,edit1.Text) then dbgrid1.SelectedRows.CurrentRowSelected:=true ;

end;

regards