Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Auf Interfaces zugreifen?

   
    by Blup, 25. Feb 2010
  Gut zu wissen, schlecht das der Compiler für diesen Fall keine Warnmeldung gibt.
  
  function GetAppInterface(AName: string): IAppInterface;
  begin
  for i := 0 to FClasses.Count - 1 do
  begin
  if FClasses.ClassName = AName then
  begin
  Result := TAppInterfaceClass(FClasses).Create;
  Exit;
• Forum: Programmieren allgemein

  Re: Auf Interfaces zugreifen?

   
    by Blup, 24. Feb 2010
  GetAppInterface gibt hier nil zurück, wenn ein unbekannter Klassenname angegeben wird.
  Im Prinzip hast du mit der Exception recht, aber das ist wie gesagt nur eine Skizze.
• Forum: Programmieren allgemein

  Re: Auf Interfaces zugreifen?

   
    by Blup, 23. Feb 2010
  Falls du das bis jetzt überlesen hast: NIEMALS! Objektvariablen und Interfacevariablen für ein und das selbe Objekt.
  
  Wenn deine Faktory die Objekte erzeugen soll, die IAppInterface unterstützen, dann gehören die Units die diese Objekte deklarieren, nirgends sonst eingebunden. Die konkrete Implementation geht niemanden etwas an, maximal die Faktory kennt diese, um die Objekte zu erzeugen. Die...
• Forum: Programmieren allgemein

  Re: Auf Interfaces zugreifen?

   
    by Blup, 19. Feb 2010
  Hier ein einfaches Beispiel, das ohne Referenzzählung auskommt und trotzdem mit Interface eine elegante Lösung bietet.
  unit UProgressHandler;
  
  interface
  
  type
  IProgressHandler = Interface(IIinterface)
  
  procedure ProgressStart;
  procedure Progress(AProzent: Integer; var IsAbort: Boolean);