Text aus ComboBox als Objekt auslesen

[Jens Schumann]

[Hallo,
ich würde folgendes machen. Ich würde zusätzlich zum Objektnamen die passende
Objektreferenz in der Objects-property speichern. Dann hast Du ausgewählten
Namen immer gleich das passende Objekt zur Hand.

Delphi-Quellcode:

NewShape:= TShape.Create(Self);
with NewShape as TShape do
Name := 'Objekt_' + IntToStr(max); //max fängt bei 0 an und geht dann immer Weiter. halt zur Unterscheidung der Objekte

ComboBox1.Items.AddObject(NewShape.Name,NewShape);

procedure TForm1.Button3Click(Sender: TObject);
begin
  If ComboBox1.ItemIndex>-1 then
    begin
    TObject(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Free;
    ComboBox1.Items.Objects[ComboBox1.ItemIndex]:=Nil;
    end;
end;

end.