![]() |
Objekte in einer ListBox verarbeiten
Hi,
Ich habe da noch mal eine Frage, wie kann ich es machen, das der Benutzer, in der Laufzeit etwas in die Listbox speichert, sagen wir mal einen Namen und das ich dann, wenn mehrere Namen drin stehen, einen beliebigen anklicke und dort sagen wir, in einem edit Feld, etwas vorher eingespeichertes aufrufe? Das fette soll die Frage sein :) mfg Flo |
Erstens ist der fette Teil keine Frage und zweitens, wenn es doch eine seien sollte, hab ich sie nicht verstanden :lol:
Was hast du denn genau vor? Kannst du´s vielleicht mal etwas genauer erklären? Gruß Yheeky |
Um das machen zu können sollte am besten die Einträge z.B. so vorgenommen werden:
Code:
Dann brauch man nur noch in einer Schleife überprüfen welcher Eintrag selektiert ist und kann dann die Daten mit:
LitBox1.AddItem(obj.name, obj);
Code:
auslesen.
ListBox1.Items.Objects[i];
[edit] also ein Objekt "Kunden" oder ähnliches ist dafür schon notwendig :angle2: |
Ich will ein Telefonbuch erstellen und man soll, wenn man auf A klickt in einer ListBox alle Einträge angezeigt bekommen, die eingegeben worden sind. Wenn ich dann einen Eintrag aus der ListBox anklicke sollen dann die weiteren Informationen angezeigt werden. Meine Frage:
Wie kann ich es machen, dass wenn ich einen beliebigen Eintrag anklicke, dieser dann gezeigt wird? |
parallel zu der listbox lässt du ein array laufen
z.b.
Code:
dann einfach das array laden z.b. aus einer datei
type TAdressen = recod
name : string; anschrift : string; tel : string; end; var adrliste : array of TAdressen;
Code:
wenn du dann auf die listbox klickst werden die werte aus dem array in die Edits übertragen
...
while not EOF(datei) do begin SetLength(adrliste,length(adrliste)+1) adrliste[length(adrliste)-1].name := lesen name ..... Listbox1.Items.Add(lesen name) adrliste[length(adrliste)-1].anschrift := lesen anschrift ..... end; ...
Code:
prcodure Listbox1OnClick(sender)
begin if ItemIndex.Itemindex > -1 then begin Edit1.text := adrliste[Listbox1.ItemIndex].name; Edit2.text := adrliste[Listbox1.ItemIndex].anschrift; end; end; |
Ok, danke für eure Antworten..! :P
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:47 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz