Auf verschiedene Instanzen eines Formulars zugreifen

[DeddyH]

Mal ein schnelles Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TObjectList;
  Button: TButton;
begin
  List := TObjectList.Create;
  try
    Button := TButton.Create(nil);
    List.Add(Button);
    Button.Free;
    ShowMessage(IntToStr(List.Count)); // = 1
  finally
    List.Free; //Bumm
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  List: TComponentList;
  Button: TButton;
begin
  List := TComponentList.Create;
  try
    Button := TButton.Create(nil);
    List.Add(Button);
    Button.Free;
    ShowMessage(IntToStr(List.Count)); // = 0
  finally
    List.Free; //Alles in Butter
  end;
end;

Eine TComponentList bekommt es mit, wenn ein Element "von außen" freigegeben wird, und aktualisiert sich dann. Bei der TObjectList ist das nicht so, das Ergebnis sind in dem Fall Dangling Pointer ("wilde Zeiger").

[Pandax3]

aso, danke, dann ist eine TComponentList wohl eher für das Speichern von Komponenten zu empfehlen ;D
Wenn ich aber sowieso nur List.Delete(1) verwende, sollte es doch eigentlich egal sein welche ListenTyp ich nehme,
aber es schadet ja nicht die TComponentList zu bevorzugen ;D

[DeddyH]

Wenn Du die Objekte über die Liste freigibst, tun sich die beiden Typen tatsächlich nichts.