[Erledigt] Combobox und Klassen

[MacWomble]

Es ist so weit... das nächste Verständnisproblem:

Ich habe ein Objekt Artikel und eine Objektliste ArtikelgruppenListe (mit Objekten Artikelgruppe).
Im Artikel gibt es ein Feld IDArtikelgruppe, welche auf das Feld ID einer Artikelgruppe verweist.

Das ganze soll nun über eine ComboBox verheiratet werden.
Das Einlesen der Artikelgruppenliste in die Combobox mache ich mit:

Code: Alles auswählen

procedure TfrmArtikel.ArtikelgruppenListeErstellen;
var
  i: integer;
begin
  ArtikelgruppenListe := TArtikelgruppenListe.Create();
  ArtikelgruppenListe.ReadAllData;
  for i := 0 to ArtikelgruppenListe.Count - 1 do
  begin
 { Combobox                                        Bezeichnung der Gruppe     Objekt der Gruppe wg. ID}
   cbArtikelgruppe.Items.AddObject(ArtikelgruppenListe.Items[i].Artikelgruppe, ArtikelgruppenListe.Items[i]);
  end;
end;      

Fragen:
1. Wie setze ich die aktuelle Bezeichnung anhand der Artikel.IDArtikelgruppe in das Textfeld der Combobox?

Code: Alles auswählen

cbArtikelgruppe.  { Index des Eintrags mit  dem Wert von} Artikel.IDArtikelgruppe

2. Wie erhalte ich die ID (nicht den Index!) einer Auswahl in der Combobox zurück?

Code: Alles auswählen

Artikel.IDArtikelgruppe := cbArtikelgruppe.Items.Objects[cbArtikelgruppe.ItemIndex].ID;

habe ich versucht, aber da kennt er die ID nicht.

ODER muss ich das ganz anders machen?

[MacWomble]

Zu Delphi habe ich das wie folgt gefunden, geht aber mit Lazarus nicht (typecast longint Object und asInteger geht da garnicht):

Code: Alles auswählen

// Setzen:
//    Combobox1.Items.AddObject(KundenName.asString,TObject(KundenID.asInteger)); 
cbArtikelgruppe.Items.AddObject(ArtikelgruppenListe.Items[i].Artikelgruppe, TObject(ArtikelgruppenListe.Items[i].ID.asInteger));
 
// Lesen:
// ID := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); 
Artikel.IDArtikelgruppe := Integer(cbArtikelgruppe.Items.Objects[cbArtikelgruppe.ItemIndex]);
 

Code: Alles auswählen

    iID:=  ArtikelgruppenListe.Items[i].ID;
    sBezeichnung:=  ArtikelgruppenListe.Items[i].Artikelgruppe;
    cbArtikelgruppe.Items.AddObject(sBezeichnung, TObject(iID));  

geht erwartungsgemäß auch nicht. (Error: Illegal type conversion: "LongInt" to "TObject")

[Michl]

Typecasting sollte schon gehen,

Code: Alles auswählen

cbArtikelgruppe.Items.AddObject(sBezeichnung, TObject(PtrInt(iID))); 

allerdings frage ich mich, ob du nicht nach einer TDBLookupComboBox (http://wiki.freepascal.org/TDBLookupComboBox) suchst?

[MacWomble]

Eigentlich wollte ich schon eine Combobox, zumindest eine, wo ich mit einem Objekt und einer Objektliste dran komme.

[sstvmaster]

Suchst du nach so was in der Art? http://softwareonastring.com/254/name-v ... nd-kinfolk

[MacWomble]

Danke !
So funktioniert es:

Einlesen:

Code: Alles auswählen

var
   cID: Cardinal;
...
cbArtikelgruppe.Items.AddObject(sBezeichnung, TObject(IntPtr(cID)));

Auswählen:

Code: Alles auswählen

procedure TfrmArtikel.cbArtikelgruppeChange(Sender: TObject);
begin
  Artikel.IDArtikelgruppe := PtrUInt(cbArtikelgruppe.Items.Objects[cbArtikelgruppe.ItemIndex]);
 end;    

Anzeigen:

Code: Alles auswählen

var
   AIndex: Integer;
...
AIndex := cbArtikelgruppe.Items.IndexOfObject(TObject(PtrInt(Artikel.IDArtikelgruppe)));
  if AIndex >= 0 then
  cbArtikelgruppe.ItemIndex := AIndex;

Das mit den TypeCasts finde ich nicht schlimm, ist noch immer übersichtlich.