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
