Combobox aus verschiedenen Quellen füllen?

[khh]

hallo zusammen, ich fülle eine Combobox folgendermassen:
       self.kdCombobox1.Items.AddObject(Tlisteninhalt(Fkundenlist.items[i]).Bezeichnung, Tlisteninhalt(Fkundenlist.items[i])); und lese sie so aus:

Delphi-Quellcode:

  fauftragkd_id:= Tkunde(self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex]).KUNDEN_ID ;

wie kann ich einen zusätzlichen Eintrag "ALLE" hinzufügen und auslesen, damit es dem Anwender möglich ist eben _ALLE_ KundenDS auszuwählen, ohne in der Kundentabelle einen solchen Eintrag zu hinterlegen?

Danke euch

Gruss Kh

[Bernhard Geyer]

Füllen ergänzen um:

self.kdCombobox1.Items.AddObject('Alle', nil); Auslesen:

Delphi-Quellcode:

Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex]
if Assigned(Obj) then
  fauftragkd_id:= (obj as Tkunde).KUNDEN_ID;
else
  // Fall "Alle"

[khh]

danke dir, das ging ja rasend schnell



Gruss Kh

[khh]

klappt leider noch nicht ganz
bei

Delphi-Quellcode:

  Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex] ;
  if Assigned(Obj) then
  fauftragkd_id:= (obj as Tkunde).KUNDEN_ID

bekomme ich error 219 ungültige Typumwandlung

Obj habe ich als Tobject definiert.
was mache ich noch falsch?


Gruss KH

[Hansa]

Zitat von khh:

Obj habe ich als Tobject definiert.

und was ist das ?

  fauftragkd_id:= (obj as Tkunde).KUNDEN_ID Was jetzt, TKunde oder TObject ? Oder von irgendwas abgeleitet ?

[Bernhard Geyer]

Zitat von khh:

bekomme ich error 219 ungültige Typumwandlung

Du mußt den gleichen Typ nehmen den du reinlegst:

Tlisteninhalt(Fkundenlist.items[i]) nimmst du zum "reinlegen" und verwendest da wieder einen harten Cast. Dann müsstest du mit
fauftragkd_id:= (obj as Tlisteninhalt).KUNDEN_ID es abfragen können.

Die frage ist ob Fkundenlist.items[i] vom Typ Tlisteninhalt ist oder du nur per Harten Cast komische verrenkungen machst

[khh]

Zitat von Hansa:

Zitat von khh:

Obj habe ich als Tobject definiert.

und was ist das ?

  fauftragkd_id:= (obj as Tkunde).KUNDEN_ID Was jetzt, TKunde oder TObject ? Oder von irgendwas abgeleitet ?

daas ist die Frage

wenn ich obj als Tkunde definiere bekomme ich hier:
  Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex] ; Error: Incompatible types: got "TObject" expected "TKunde"

ich habs jetzt so gemacht, dass ich

Delphi-Quellcode:

     Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex] ;
     if Assigned(Obj) then
        // fauftragkd_id:= (obj as Tkunde).KUNDEN_ID
        fauftragkd_id:= Tkunde(self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex]).KUNDEN_ID
       
     else
     begin

die Typumwandlung durch die bisherige zuweisung ersetzt habe.

So funktionierts denn auch

Aber was da jetzt nicht gepasst hat, habe ich noch nicht kapiert

Gruss Kh

[DeddyH]

Das müsste doch auch so gehen (obj ist als TKunde deklariert):

Delphi-Quellcode:

Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex] as TKunde;
     if Assigned(Obj) then
        fauftragkd_id:= obj.KUNDEN_ID
       
     else
     begin

[khh]

Zitat von DeddyH:

Das müsste doch auch so gehen (obj ist als TKunde deklariert):

Delphi-Quellcode:

Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex] as TKunde;
     if Assigned(Obj) then
        fauftragkd_id:= obj.KUNDEN_ID
       
     else
     begin

müsste ich ausprobieren, aber obj als TKunde krieg ich hier:
Obj := self.kdCombobox1.Items.Objects[self.kdCombobox1.ItemIndex] ; Error: Incompatible types: got "TObject" expected "TKunde"

[DeddyH]

Deshalb ja auch mein Softcast (as TKunde).