Key/Value Pairs in Arrays

[slemke76]

Hallo zusammen,

ich habe eine Datenbank mit einem Wert und einem Primärschlüssel:

mandant / Bezeichnung
1 / Musterfirma
98 / Firma TEST

Ich lese diese Tabelle mit "Select mandant, Bezeichnung from mandaten" aus, habe diese nun in einem AdoQuery-Objekt stehen und möchte gerne eine CheckBox füllen. Das mache ich derzeit so:

Delphi-Quellcode:

  if AdoQuery.Recordcount>0 then begin
    // Treffer !
    for i := 0 to AdoQuery.RecordCount - 1 do begin
      cb_Mandant.Items.Add(AdoQuery.Fields.Fields[1].Asstring);
      // für spätere Zuordnung ItemIndex der ComboBox - Primärindex
      AvailMand.Values[IntToStr(i)] := AdoQuery.Fields.Fields[0].AsString;
      AdoQuery.Next;
    end;
    cb_Mandant.ItemIndex:=0;
    cb_Mandant.Update;
  end;

Wenn ich nach Auswahl des Users jetzt mit dem CheckBox.ItemIndex den Primärindex (mandant) bestimmen will, mache ich das so:

Delphi-Quellcode:

  // für spätere Zuordnung ItemIndex der ComboBox - Primärindex
  pri_id := AvailMand.Values[IntToStr(cb_Mandant.ItemIndex)];
  ShowMessage(pri_id);

Klappt soweit auch alles, aber geht das auch noch "schöner" ?

lg
Sebastian