Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden

[nahpets]

Zitat von himitsu:

Warum FindComponent, wenn man f hat?

Zitat von Du:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht.

Zitat von Delphi:

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then  // if Assigned(Self) then
    Destroy;
end;

FindComponent zum Ersten, um zu zeigen, dass es funktioniert und zum Zweiten, weil es eventuell dann hier

Delphi-Quellcode:

if not assigned(Application.FindComponent(formListe[n]) as TForm) then
begin
  continue;
end;

funktioniert, ohne zu wissen, wie die weitere Programmlogik des Threaderstellers aussieht.

Und ja, es heißt natürlich f.Destroy