procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to DBGrid1.SelectedRows.Count - 1 do begin
DBGrid1.DataSource.DataSet.Book := DBGrid1.SelectedRows.items[I];
ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);
end;
end;
var
I: Integer;
begin
for I := 0 to DBGrid1.SelectedRows.Count - 1 do begin
DBGrid1.DataSource.DataSet.Book := DBGrid1.SelectedRows.items[I];
ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);
end;
end;
TDBGrid.SelectedRows.count
TDBGrid.SelectedRows.items