Sortierte TListbox - Probleme mit ItemIndex

[livemedia]

Hallo

Ich befülle eine Listbox mit den Daten aus einem Array und möchte anschließend auf Doppelklicks in der Listbox reagieren. Solange ich die Daten nicht vcn der Listbox sortieren lasse ist alles wunderbar weil der gelieferte Wert Itemindex dem Speicherplatz in meinem Array entspricht.

EXTREM verkürztes Beispiel:

Delphi-Quellcode:

type friends = record
        firstname: string[30];
        lastname : string[30];
        email    : string[50];
end;
var  friendlist : array[1..100] of friends;

for i := 1 to 10 do 
begin
 form1.ListBox1.Items.Add(friendlist[i].firstname+' '+friendlist[i].lastname)
end;

Und sobald ein Doppelklick kommt in der Listbox soll die Mailadresse rauskommen. (wieder nur als kurzes Beispiel)

Delphi-Quellcode:

procedure TForm1.ListboxdBlClick(Sender: TObject);
begin
  if listbox1.ItemIndex <> -1  then
    showmessage(friendlist[listbox1.ItemIndex+1].email);  // +1 weil itemindex bei 0 anfängt - meine Liste aber mit 1
end;

Wenn ich jetzt aber die Listbox sortieren lasse kommt beim Klick auf den ersten Eintrag der Itemindex 0 obwohl der Speicherplatz in meinem Array z.b. 8 sein könnte. Somit wird mir bei dem obigen Beispiel dann eine falsche Mailadresse angezeigt. Wie bekomme ich diese Daten denn wieder überein OHNE vorab zu sortieren ??

Ich hoffe ich konnte mein Problem deutlich machen obwohl ich nur beispielhafte Code verwendet habe.

[mkinzler]

Du kannst die Records auch in den Items ablegen

[livemedia]

Danke schonmal für die Antwort....

... mit der ich leider nicht so richtig was anfangen kann. :thumb:

[mkinzler]

Delphi-Quellcode:

form1.ListBox1.Items.AddItem(friendlist[i].firstname+' '+friendlist[i].lastname, friendlist[i]);

[livemedia]

Delphi-Quellcode:

ListBox1.Items.AddItem(.....

.... gibt es bei mir gar nicht.

Aber abgesehen davon :

Mein eigentlicher Code beinhaltet deutlich mehr Informationen als nur die 3 Sachen hier. Wenn ich das ALLES mit in die Listbox nehme : verschwende ich dann nicht unnötig Speicher ? Mit geht es ja mehr darum wie ich den Rückbezug vom Itemindex zu meinem Speicherplatz im Array herstellen kann.

[Matze]

Zitat:

Zitat von livemedia

Delphi-Quellcode:

ListBox1.Items.AddItem(.....

.... gibt es bei mir gar nicht.

Da hat sich Markus wohl vertippt, so muss es heißen:

Delphi-Quellcode:

ListBox1.AddItem(...);

Du kannst den Items auch nur den Array-Index zuordnen, dann braucht dein Programm nicht so viel Speicher. Natürlich könntest du auch das Array selbst sortieren und dann der ListBox zuweisen.

[sx2008]

Meine Empfehlung: mach aus dem record eine Klasse.
Die Objekte diese Klasse speicherst du nicht in einem Array, sondern in einer TObjectList.
TObjectList ist eine deutlich bessere Datenstruktur als ein offenes Array.

Du kannst nun Einträge über listbox.Items.AddObject() deiner Listbox hinzufügen.
Du brauchst dir so auch keine Sorgen zu machen, auf diese Art irgendein Speicher zu verschwenden.
Es werden ja nur Zeiger auf die Objekte verwendet.
Wenn die Listbox sortiert wird, werden die Zeiger in listbox.Items.Objects[] gleich mitsortiert.

[mkinzler]

Zitat:

Da hat sich Markus wohl vertippt, so muss es heißen

Ja habe beim anpassen des Codes falsche Ebene erwischt. :oops: