Wert einer Spalte in ListView erhalten

[Akut-Programming]

Hey!!

Ich würde gern den Eintrag aus einer ListView Colum (ausgewählte Zeile) in eine Variable übernehmen. Ich hab schon alles mir erdenkliche versucht

z.B.

Delphi-Quellcode:

i:=ListView1.Selected.Index;
text:=ListView1.Columns[2].Items[i].Text;

aber dat will nich. Hat jemand Ahnung davon??

[Tpercon]

Delphi-Quellcode:

ListView1.Items[Zeile].SubItems[Spalte]

Die erste Spalte ist im Caption anstatt dem SubItem enthalten.

[neolithos]

Delphi-Quellcode:

ListView1.Items[i].SubItems[1]

[Akut-Programming]

:dancer: Yeah cool, das ging schnell! THX :wink:

Gruß,

[Akut-Programming]

Ach man..
wenn ich eine Zeile auswähle, soll in meinem Label die im Moment ausgewählte ID aus der Spalte "TerminID" angezeigt werden. Also habe ich den Code so angewendet:

Delphi-Quellcode:

procedure Tfrm_terminplaner_main.lv_eintraegeClick(Sender: TObject);
var
  i: integer;
begin
  i:=lv_eintraege.Selected.Index;
  if lv_eintraege.Items.Count>=0
  then begin
     Label7.Caption:='ausgewähle TerminID: '+lv_eintraege.Items[i].SubItems[0];
  end;
end;

i= die ausgewählte Zeile
SubItems[0]= Spalte "TerminID" in lc_eintraege

Nur zeigt er mir hierbei nicht die ID an sondern den Text in der nächsten Spalte. :freak: Hab ihm doch aber fest gesagt, er soll in Spalte "0" gehen.

[Tpercon]

Änder deinen Code mal so um (ungetestet):

Zitat:

Zitat von Akut-Programming

Delphi-Quellcode:

procedure Tfrm_terminplaner_main.lv_eintraegeClick(Sender: TObject);
var
  i: integer;
begin
  if lv_eintraege.Items.Count = 1
  then begin
    i:=lv_eintraege.Selected.Index;
    Label7.Caption:='ausgewähle TerminID: '+lv_eintraege.Items[i].Caption;
  end;
end;

Siehe mein vorheriges Posting! Der Text der ersten Spalte ist in Caption!

[Akut-Programming]

Ok. Nun endlich ma. Es funzt, prima!!