Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Werte aus TColumn lesen (https://www.delphipraxis.net/206109-werte-aus-tcolumn-lesen.html)

Peter-Pascal 19. Nov 2020 16:35

Werte aus TColumn lesen
 
Hallo,

mein Problem ist, dass ich nicht weiß wie ich aus einer TColumn eines TStringGrid die Werte der einzelnen Zeilen auslesen kann.
Zum Beispiel bekommt man bei onHeaderClick:
Delphi-Quellcode:
procedure TForm.StringGrid1HeaderClick(Column: TColumn);
begin

end;
Ist es jetzt nur möglich die Zeile und Spalte zu suchen und über TStringGrid.Cells[] die Werte in den Zellen zu lesen?

Ich rätsel da schon einige Zeit dran rum. Vielen Dank schon mal.

Mein Problem ganz konkret ist, dass ich bei TPopupColumn die Werte über PopupColumn1.Items.AddObject('String',Object); gesetzt habe und nun nicht weiß, wie ich an das Object komme, wenn in der Zelle eine Auswahl getroffen wurde. Über cells[] gibt es nur einen String.

Gruß Peter

himitsu 19. Nov 2020 17:44

AW: Werte aus TColumn lesen
 
Da die Objekte an der PopupColumn sind, mußt du sie auch dort auslesen.

Eventuell irgendwie so:
* in den Items nach dem gewünschten Item suchen (Index)
* und dann mit dem gefundenen Index das Objekt auslesen
Delphi-Quellcode:
PopupColumn1.Items.Objects[PopupColumn1.IndexOf(Cells[.....])]

// bzw., da wenn nichts ausgewählt *Peng*
Idx := PopupColumn1.IndexOf(Cells[.....]);
if Idx >= 0 then
  Obj := PopupColumn1.Items.Objects[Idx];

Peter-Pascal 20. Nov 2020 13:12

AW: Werte aus TColumn lesen
 
Hallo Himitsu,

vielen Dank für Deine schnelle Hilfe.
Auf diese Idee wäre ich nicht gekommen, obwohl naheliegend, zumindest im nachhinein.

Gruß Peter


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:00 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz