@Jaenicke
Deines ist weniger "kompliziert", wenn die Anforderung kommt direkt über die Beschreibung auszuwählen, also Commbobox oder Radiogroup ohne Lables und sichtbare Zahlen, ist mein Ansatz schneller umgestrickt...
Delphi-Quellcode:
procedure TForm1.DisplayArray2(Nr:Integer);
var
i:Integer;
begin
Combobox1.Items.Clear;
for I := 1 to 4 do
begin
if InfoRecArray[Nr,i].Nr>-1 then
Combobox1.Items.AddObject(InfoRecArray[Nr,i].Caption,TObject( InfoRecArray[Nr,i].Nr));
end;
Combobox1.ItemIndex := 0;
end;
Der Zugriff auf die Nummer würde dann per Beispiel
Showmessage(IntToStr(Integer(Combobox1.Items.objects[Combobox1.ItemIndex])));
erfolgen ...