🚀 go-pugleaf

> > Możesz wykonać analogiczną iterację po XDBGrid.SelectedRows, albo skorzystać z metody
> > XDBGrid.ForEachDataRow z parametrem reSelectedRows:
> >
> > function TMainForm.GetSelectedID(DBGrid: TXDBGrid; ID: TField): string;
> > var
> >   ID_List: string;
> > begin
> >   ID_List := '';
> >   DBGrid.ForEachDataRow(reSelectedRows,
> >     procedure
> >     begin
> >       if ID_List = '' then ID_List := ID.Text
> >       else ID_List := ID_List + ', ' + ID.Text;
> >     end);
> >   Result := ID_List;
> > end;
>
> Niestety ForEachDataRow dopiero od D2009 - a ja rzeźbię na D5 :D
> Ale SelectedRows idealnie do tego się nadaje.
> Zrobiłem to tak jak niżej - działa :)
>
> if Lista.SelectedRows.Count > 0 then
>      for i : =0 to Lista.SelectedRows.Count - 1 do Begin
>        TabelaDanych.GotoBookmark(Pointer(Lista.SelectedRows.Items[i]));
>        >> tutaj procedura która ma być wykonana na danych rekordu z TabelaDanych
>      end;

I prawidłowo. A jak całość umieścisz jeszcze w takim bloku jak poniżej, to w XDBGridzie
nie będzie widać, że skaczesz po zaznaczonych rekordach i wrócisz w to samo miejsce.

Lista.DisablePosition;
try
  // tu Twój kod
finally
  Lista.EnablePosition;
end;



-- 
pozdrowienia
Krzysztof Szyszka, X-Files Software
Developer of X-DBGrid Component
Embarcadero Technology Partner
http://www.x-files.pl/