Gut zu wissen, schlecht das der Compiler für diesen Fall keine Warnmeldung gibt.
Delphi-Quellcode:
function GetAppInterface(AName: string): IAppInterface;
begin
for i := 0 to FClasses.Count - 1 do
begin
if FClasses[i].ClassName = AName then
begin
Result := TAppInterfaceClass(FClasses[i]).Create;
Exit;
end;
end;
Result := nil;
end;