Combobox Zusatzeintrag

[Cool-Tuc]

Hallo alle,
mit der Version 1.4? hat folgende Konstruktion, zum Eintrag in eine ComboBox eine zusäzliche ID zu speichern, funktioniert:

Code: Alles auswählen

cmbCombo.Items.AddObject(sTemp, TObject(lID))

Nun, nach Umstellung auf Version 1.6 funktioniert es leider nicht mehr. Die Fehlermeldung lautet:

Code: Alles auswählen

Illegal type conversion: "Longint" to "TObject"

Setze ich an Stelle "lID" eine feste Zahl ein, gibt es keine Fehlermeldung mehr...

Wo ist der Denkfehler?

Danke

udo

[Cool-Tuc]

...man nenne mir den Sinn

ersetzte ich den Datentyp der Variable "lID" von "Integer" durch "PtrUint" funktioniert es wieder....

udo

[theo]

...man nenne mir den Sinn

64bit Pointer?

[Cool-Tuc]

...ist mir schon klar, aber ich dachte einem TObjekt kann ich alles übergeben, bzw. kann jeden Datentyp annehmen...

[m.fuchs]

Da denkst du völlig falsch. Einem TObject soll man eigentlich nur ein TObject oder einem Nachfahren davon übergeben. Wenn du hier einfach so eine Zahl reinhaust ist das Murks.

[af0815]

Was du willst, wird als Boxing/Unboxing bezeichnet. Siehe https://en.wikipedia.org/wiki/Object_ty ... ng)#Boxing

In Dephi wurde es früher so benutzt wie du sagst (ich kenne es von D3-D7), da waren die Typen von der Länge im Speicher auch passend. Die Länge des Zeigers von TObject war genauso lange wie das was man dort eingetragen hat, damit war der Zugriff über einen einfachen Cast möglich. Ist aber auch nicht mit jedem Typ gegangen und man musste wissen was man tut.

[Cool-Tuc]

...bekomme ich leider nicht hin, irgendwie laufe ich immer auf einen "typconversion" - Fehler wenn ich den Wert wieder auslesen möchte...
Hat vit. jemand einen kleinen CodeSchnipsel, wie ich einen einfachen ID-Wert (zusätzlich/unsichtbar) in die Combo hineinbekomme und wieder auslesen kann?

Danke

Udo

[theo]

Einfach probieren bis es klappt..

Code: Alles auswählen

var Valu:Cardinal;
begin
  Valu:=13;
  ComboBox1.Items.AddObject('test',TObject(IntPtr(Valu)));
  ShowMessage(IntToStr(PtrUInt(ComboBox1.Items.Objects[0])));
end;  

[m.fuchs]

Ich weine gleich.

[MacWomble]

Und wie setze ich dann die Combobox auf den richtigen Eintrag wenn ich valu 13 habe?

[Michl]

Und wie setze ich dann die Combobox auf den richtigen Eintrag wenn ich valu 13 habe?

z.B.

Code: Alles auswählen

  AIndex := ComboBox1.Items.IndexOfObject(TObject(PtrInt(Valu)));
  if AIndex >= 0 then
    ComboBox1.ItemIndex := AIndex;    

[MacWomble]

Danke, das funktioniert !

[pluto]

Einfach probieren bis es klappt.

Und warum es nicht gleich richtig machen und z.b. eine Extra Klasse nehmen?
Dann wäre es einfacher und Strukturierter....

Code: Alles auswählen

 
  TMyObject = class
    MeinFeld:Integer;
   ...
  end;
 
var
  MyObject:TMyObject;
begin
  MyObject:=TMyObject.Create;
  MyObject.MeinFeld:=64;
  ComboBox1.Items.AddObject('Name',MyObject);
 

Das geht immer und das kann man sehr schön noch weiter Optimieren.

[MacWomble]

Aber beim Auslesen oder Anzeigen ändert sich ja trotzdem nichts, oder?

Für weitere Posts bitte die Umleitung: viewtopic.php?f=10&t=11963&p=107403#p107403 nehmen.