Mehrerere Objekte zur Laufzeit erstellen

[DeddyH]

Was denn für Objekte? Komponenten oder ganz andere? Im Prinzip geht das so (ich geh mal davon aus, dass es sich nicht um Komponenten handelt):

Delphi-Quellcode:

//FObjects soll ein privates Feld vom Typ TObjectList sein
procedure TSomeForm.CreateSeveralObjects(CountObjects: integer);
var
  i: integer;
  Obj: TSomeObject;
begin
  for i := 1 to CountObjects do
    begin
      Obj := TSomeObject.Create;
      //Irgendwelche Eigenschaften setzen
      Obj.SomeProp := 42;
      FObjects.Add(Obj);
    end;
end;

Wenn später die Objektliste freigegeben wird, werden (in der Standardeinstellung OwnsObjects auf true) auch die enthaltenen Objekte mit freigegeben.