ComboBox mit unterschiedlichen Objekten - sauber abraeumen?

[marabu]

Hi Ingo,

besser so:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  with ComboBox.Items do
    AddObject('demo', TObject(TStringList));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s: TStrings;
begin
  with ComboBox.Items do
    s := TClass(Objects[0]).Create as TStrings;
  s.Add('Ingo');
  s.Free;
end;

Bei deinem Create würde, wenn denn ein "echtes" Objekt gespeichert wäre, dieses mit Create() lediglich auf den Ausgangszustand zurück gesetzt. Du musst den richtigen TypeCast einsetzen.

Freundliche Grüße