[Erledigt] Frage zu ComboBox

Für Fragen zur Programmiersprache auf welcher Lazarus aufbaut

[Erledigt] Frage zu ComboBox

Beitragvon MacWomble » 5. Nov 2019, 12:51 [Erledigt] Frage zu ComboBox

Ich fülle aus der Objektliste Anreden die Combobox cbAnrede SELEKTIV!
Hierbei übergebe ich auch die ID des jeweiligen Objekts:
Code: Alles auswählen
 
procedure TAdressEditor.FillCBAnreden;
var
  i: integer;
begin
  for i := 0 to Anreden.Count - 1 do
    if Anreden[i].InAdresse = 1 then
      cbAnrede.Items.AddObject(Anreden.Items[i].Anrede, TObject(IntPtr(Anreden.Items[i].ID)));
end;
 


Nun möchte ich in Abhängigkeit der cbAnrede weitere Daten aus dem Objekt Anreden lesen:
Code: Alles auswählen
 
  idx:=  PtrUInt(cbAnrede.Items.Objects[cbAnrede.ItemIndex]);
  edBriefanrede.Text := Anreden[idx].Anrede;
 


idx enthält dann die ID des richtigen Objekts, in edBriefanrede erscheint aber eine falsche Anrede :shock:

OK,schon klar: idx sollte den Index des Objekts in der Objektliste mit der ID bezeichnen. Nur, wie macht man dies am sinnvollsten?

Nachtrag: Wie so oft, beim erklären des Problems ist mir auch die Lösung wieder eingefallen. Ich muss die Anreden in einer Schleife durchgehen, bis ich die passende ID gefunden habe.
Alle sagten, dass es unmöglich sei - bis einer kam und es einfach gemacht hat.
MacWomble
Lazarusforum e. V.
 
Beiträge: 860
Registriert: 17. Apr 2008, 00:59
Wohnort: Freiburg
OS, Lazarus, FPC: Mint 19.2 Cinnamon / CodeTyphon LAB 7.0 v. 03.11.2019/ FP 3.3.1 Rev 43346 | 
CPU-Target: Intel i7 64/32 Bit
Nach oben

• Themenende •

Zurück zu Freepascal



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

porpoises-institution
accuracy-worried