Re: Wybieranie pozycji z XDBGrid

Article View: pl.comp.lang.delphi

Article #346259

Back to pl.comp.lang.delphi Previous Next

#346259

From: ExM
Date: Tue, 23 Jan 2018 20:30

27 lines
2415 bytes

W dniu poniedziałek, 22 stycznia 2018 17:39:46 UTC+1 użytkownik Krzysztof Szyszka napisał:
> 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;

Technical Details

Message-ID: <60039097-6e57-435c-bab8-b3c7fc71ce47@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!w142no2528353ita.0!news-out.google.com!b73ni8441ita.0!nntp.google.com!w142no2528352ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References: <4f3ead22-d082-4240-9ff7-30a02eb526e7@googlegroups.com> <p4544g$2la$1@node1.news.atman.pl>

Show Full Headers

Complete Article Headers

X-Received: by 10.36.19.2 with SMTP id 2mr2737800itz.4.1516739445237;        Tue, 23 Jan 2018 12:30:45 -0800 (PST)
X-Received: by 10.157.15.236 with SMTP id m41mr568203otd.7.1516739444983; Tue, 23 Jan 2018 12:30:44 -0800 (PST)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!w142no2528353ita.0!news-out.google.com!b73ni8441ita.0!nntp.google.com!w142no2528352ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.delphi
Date: Tue, 23 Jan 2018 12:30:44 -0800 (PST)
In-Reply-To: <p4544g$2la$1@node1.news.atman.pl>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=5.173.218.229; posting-account=doVJ9goAAADBJ8SWJkb9r0xXWw28WhQg
NNTP-Posting-Host: 5.173.218.229
References: <4f3ead22-d082-4240-9ff7-30a02eb526e7@googlegroups.com> <p4544g$2la$1@node1.news.atman.pl>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <60039097-6e57-435c-bab8-b3c7fc71ce47@googlegroups.com>
Subject: Re: Wybieranie pozycji z XDBGrid
From: ExM <grupywyt-nijto@mv.net.pl>
Injection-Date: Tue, 23 Jan 2018 20:30:45 +0000
X-Received-Body-CRC: 1160727512
X-Received-Bytes: 2404
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message