Hallo!

Ich habe eine ComboBox, gefüllt mit Objekten einer Klasse "System". Ich möchte jedes einzelne auf die Eigenschaft .ID überprüfen.

Um an das eigentliche Objekt zu gelangen mach ich folgendes:

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: var hSystem : System; for hCnt := 0 to ComboBox.Items.Count-1 do begin   hSystem := ISystem(pointer(ComboBox.Items.Objects[hCnt]));   if hSystem.ID = ...   end;

Doch hSystem ist immer "nil". Wieso? Greif ich falsch auf die Systeme zu??

Grüße und Dank

Sebastian

Also ich muss sagen ich kenne den Variablentyp "System" nicht, aber warum liest du nicht gleich die ID aus?

Müsste doch genauso funktionieren wenn du machst

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: for hCnt := 0 to ComboBox.Items.Count-1 do begin   if ComboBox.Items.Objects[hCnt].ID = ...  end;

Oder hat es irgendeinen speziellen Grund warum du erst ein Pointer auf das Object. Und was macht dann ISystem?

Gruß Jack

Der Cast auf iSystem ist schon in Ordnung, ein TObject hat nunmal keine ID. Der Cast auf Pointer ist überflüssig und möglicherweise auch die Fehlerursache.