acceder al dataset del TGrid en runtime
 

saludos, como puedo acceder al dataset del Tgrid en run time, conectado a livebinding.


no encuentro en runtime la forma de llegar al LiveBindigs de tiempo de diseño.

Bueno mientras alguien me da otra idea voy resolviendo con esta por si la ven correcta
es una funcion que busca por el Formulario el componente TLinkGridToDataSource y dentro de este componente
esta el nombre del grid con esto se que TLinkGridToDataSource tiene el Grid y dentro

esta un TBindSourceDB que tiene a que dataset esta asociado .



reslueto el problema, en lugar de buscar partiendo de un Tgrid el dataset, hago lo contrario busco que
TLinkGridToDataSource tiene dentro el Tgrid que quiero y cuando lo encuentro se que Dataset es.


Con esta

Código Delphi [-]
function Tform1.GetDataSet(GridName: string): TDataset;
var
  i, j: Integer;
begin
  result := nil;
  for i := 0 to ComponentCount - 1 do
    for j := 0 to ChildrenCount - 1 do
      if Components[i] is TLinkGridToDataSource then
        if GridName = TGrid((Components[i] as TLinkGridToDataSource).GridControl).Name then
          result := TBindSourceDB((Components[i] as TLinkGridToDataSource).DataSource).DataSet;
end;

Gracias por compartir la solución

Saludos

Puedes probar, pasando como parámetro el componente Grid (en lugar del nombre), que siempre es más seguroi y con un código como este:

Código Delphi [-]
var
  i:integer;
begin
  for i := 0 to (BindingsList1.BindCompCount - 1) do begin
    if (BindingsList1.BindComps[i] is TLinkGridToDataSource) then begin
      if (TLinkGridToDataSource(BindingsList1.BindComps[i]).GridControl = AGridComponent) then
        Result := TLinkGridToDataSource(BindingsList1.BindComps[i]).DataSource....

    end;

Se trata de recorrer todos los componentes de binding (si tuvieras más de uno) e identificar el que tienes aociado al grid que estás buscando (parámetro AGridComponent).

ok gracias