Combobox mit tag

[StTüff]

Hallo zusammen!

Ich würde gerne mit jedem Eintrag in einer Combobox einen Integerwert abspeichern.
Mir ist klar, dass ich jedem Eintrag ein Objekt zuordnen kann. Da ich aber nur einen simplen Integerwert benötige, habe ich mir gedacht: Das Tolle an Objektorientierung ist, dass ich mir meine TaggedKombobox selbst bauen kann. :thumb:
Ich hab dann mal mit so was

Delphi-Quellcode:

TTaggedStrings = class (TStrings)

end;

TTaggedComboBox = class(TComboBox)
  Items:TTaggedStrings;
  
end;

angefangen, aber leider fehlt mir der Plan, wie ich jetzt jedem String einen Integerwert (tag) anhängen kann.

Natürlich kann ich doch auf die "Objektanhängvariante" ausweichen. Mich würde aber die Lösung auf diese Art interessieren. Kann mir da jemand auf die Sprünge helfen?

Gruß,

StTüff

[mkinzler]

Delphi-Quellcode:

TTaggedStrings = class (TStrings)
  private 
    FTag: Integer;
  published 
    Tag: Integer read FTag write FTag;
  public 
    constructor Create;
end;

[Neutral General]

naja ich schätze er will die Strings der ComboBox durch seine Tag-Strings ersetzen so das er dann das ganze so aufrufen kann:

Delphi-Quellcode:

Combobox.Strings[x].Tag

Ehm glaube ich zumindest.. Aber das dürfte unmöglich sein so wie ichs verstehe

Gruß
Neutral General

[mkinzler]

Zitat:

naja ich schätze er will die Strings der ComboBox durch seine Tag-Strings ersetzen

Glaube ich nicht:

Zitat:

wie ich jetzt jedem String einen Integerwert (tag) anhängen kann.

[Neutral General]

Genau diese Zeile verstehe ich so wie ich schon gesagt habe :mrgreen:

[mkinzler]

Er wird sich sicherlich wieder melden und uns dann aufklären, wie er es gemeint hat ;-)

[Flocke]

Zitat:

Zitat von StTüff

Mir ist klar, dass ich jedem Eintrag ein Objekt zuordnen kann.

Du könntest es einfach so machen:

Delphi-Quellcode:

  // Schreiben
  Strings.Objects[idx] := Pointer(Wert);
  // Auslesen
  Wert := Integer(Strings.Objects[idx]);

Das Problem bei deiner Idee ist, dass die ComboBox dir zwar ein TStrings-Interface gibt, intern aber eine eigene Implementierung dieser abstrakten Klasse verwendet. Die kannst du so einfach nicht erweitern. Komponenten, bei denen das vorgesehen ist, benutzen eine virtuelle Klassenfunktion zur Ermittlung der eigentlichen Klasse der nehmen ein Ereignis dafür (z.B. TTreeView.OnCreateNodeClass).

// NACHTRAG!!!

Habe gerade gesehen, dass das bei TComboBox sogar schon vorgesehen ist! Du musst dafür GetItemsClass überschreiben:

Delphi-Quellcode:

  protected
    // ...
    function GetItemsClass: TCustomComboBoxStringsClass; virtual; abstract;

[pszopp]

Hallo,

Delphi-Quellcode:

procedure InsertData(const aStr : String; aValue : Integer);
begin
  ComboBox1.Items.AddObject(aStr, TObject(aValue));
end;

function GetValue(aIdx : Integer) : Integer;
begin
  Result := Integer(ComboBox1.Items.Objects[aIdx]);
end;

So würde ich es programmieren.

Gruß,
pszopp

[StTüff]

Hallo @all!

Erst mal vielen Dank für die vielen Antworten!

Noch mal zur Erklärung:
Ich hatte mir den Zugriff so vorgestellt:

Delphi-Quellcode:

 MyCombobox.Items[X].tag := EinIntegerWert;

Da "MyCombobox.Itemx[x]" aber vom Typ TStrings ist, dachte ich, dass ich hier ansetzen und einfach für jeden enthaltenen String noch einen "Tag" hinzufügen kann.

Zunächst ein mal habe ich jetzt aber registriert, dass die meisten es über die "Objektlösung" versuchen würden.
Ich habe es auch so gelöst. Ich würde aber gerne noch mal den Ansatz von Volker weiterverfolgen, da ich so was noch nie gemacht habe und gerne an diesem Beispiel etwas dazulernen möchte.

Volker schreibt:

Zitat:

Komponenten, bei denen das vorgesehen ist, benutzen eine virtuelle Klassenfunktion zur Ermittlung der eigentlichen Klasse der nehmen ein Ereignis dafür (z.B. TTreeView.OnCreateNodeClass).

// NACHTRAG!!!

Habe gerade gesehen, dass das bei TComboBox sogar schon vorgesehen ist! Du musst dafür GetItemsClass überschreiben:

Delphi-Quellcode:

protected 
    // ... 
    function GetItemsClass: TCustomComboBoxStringsClass; virtual; abstract;

Ich werde das mal versuchen (auch wenn ich noch keinen Plan habe wie das geht) und mich dann noch mal melden.

Wenn mir zwischenzeitlich jemand einen Vorschlag für die Unsetzung machen möchte - Ich höre gerne zu ;-)

Gruß und noch mal vielen Dank an alle!

StTüff

[StTüff]

....so, ich möchte gerne über meine ersten Schritte berichten, damit Ihr mich gleich bremsen könnt, wenn ich was falsch mache.

So weit bin ich bis jetzt gekommen:

Delphi-Quellcode:

unit TaggedCoBo;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TTaggedComboBox = class(TComboBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
    function GetItemsClass: TCustomComboBoxStringsClass; override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('My_Components', [TTaggedComboBox]);
end;

function TTaggedComboBox.GetItemsClass: TCustomComboBoxStringsClass;
begin
  //Hier sollte ich jetzt wohl was machen ;-)

  inherited;
end;

end.

OK, da steckt inhaltlich noch nicht viel drin, ich bin mir aber trotzdem schon unsicher, ob das alles so passt. :gruebel:

Gruß,

StTüff