Listbox items anklicken

[ruffy407]

Hey..

Ich habe eine Listbox und möchte dass die daten wieder in den Editfeldern erscheinen, wenn ich auf ein Listboxitem klicke.
Ich arbeite mit der Doppelt verketteten Liste und weiß nicht wie ich mich auf den jeweils angeklickten TKnoten beziehen kann...

Ich habs mal so probiert aber das funktioniert nicht:

Code:

procedure TMyFriend.KarteiviewClick(Sender: TObject); 
var lauf : tknoten;    {ein knoten der durch alle hindurch läuft und bei itemindex anhalten soll}
begin
 lauf := anfang;
 repeat
   lauf := lauf.Nach ;
 until
   lauf = karteiview.ItemIndex;
end;

Der Knackpunkt liegt wohl in "Itemindex" aber wie kann cih das anders schreiben ? danke für eure Hilfe!

[marabu]

Guten Morgen,

dein Problem lässt sich gut durch eine Zählschleife lösen:

Delphi-Quellcode:

procedure TMyFriend.KarteiviewClick(Sender: TObject); 
var 
  i: Integer;
  lauf: TKnoten;   
begin
  lauf := anfang;
  for i := 0 to KarteiView.ItemIndex do
    lauf := lauf.Nach ;
  // ...
end;

Du schreibst ListBox und nennst sie KarteiView - kennst du den Unterschied zwischen einer ListBox und einer ListView?

Grüße vom marabu

[ruffy407]

der der unterschied ist mir bewusst :) ich meinte listview und schrieb listbox..
Danke für deine hilfe so hats geklappt