acceder al dataset del TGrid en runtime

[juank1971]

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.

[juank1971]

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;

[[ElKurgan]]

Gracias por compartir la solución

Saludos

[Neftali [Germán.Estévez]]

Empezado por juank1971

Bueno mientras alguien me da otra idea ...

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).

[juank1971]

ok gracias