Tilknyt ID til hvert item i en TComboBox

En TComboBox Består af Items, som er en TStrings Classe

Til hver string i sådan en klasse kan du knytte et Object.

En TStringList er en nedarvning af en TStrings.

f.eks.

TStringList* ComboData;  // Indeholder alle combobox linier

ComboData = new TStringList();


// Lav en classe som indeholder de værdier du vil knytte til combobox teksten
TMyObject *MyObject;

MyObject = new TMyObject(10);

// Her knytter du teksten "Combo Item 1" til dit object MyObject, som indeholder værdien 10.
ComboData->AddObject("Combo Item 1",MyObject);

// Her indsætter du din liste af data ind i din combobox.
ComboBox->Items = ComboData;

Hovsa - Det her er jo et Delphi spørgsmål. Det overså jeg lige.

Men svaret er god nok de samme klasser findes i Delphi.


;-)

Synes nok det så lidt meget C++ agtigt ud ;)

Snowball

I den fejler ikke noget .. Jeg skal lige lave dig et Delphi eks. Så kan laffe få points..

Jens B

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.AddObject('Hest ' + IntToStr(ComboBox1.Items.Count +1), TObject(Random(5000)) );
  ComboBox1.ItemIndex := ComboBox1.Items.Count -1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Text : String;
  Id : Integer;
begin
  text := ComboBox1.Items[ComboBox1.ItemIndex];
  ID := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  Caption := Format('Text : %s Id : %d', [Text, Id]);

end;

Tak for hjælpen.

Snowball