(Abstract)Factory Pattern und Datentransfer

[Sir Rufo]

Nein, das ist definitiv nicht zweckmäßiger ... dann wirst du wohl eher so etwas benötigen

Delphi-Quellcode:

IFillData = interface
end;

IFillConcreteData = interface( IFillData )
  function WithThis( AData : TConcreteData ) : IFilledForm;
end;

TFillDataFactory = class

function GetFillData( IID : TGUID; ADate: TDateTime; out Intf: IInterface ) : Boolean; 
end;

Und der Aufruf dann

Delphi-Quellcode:

var
  Fill : IFillConcreteData;
  ConcreteData: TConcreteData;

if MyFactory.GetFillData( IFillConcreteData, Now(), Fill ) then
  Fill.WithThis( ConcreteData )
    .SendAsEmail();

Im Prinzip ist es eine erweiterte Supports -Funktion
http://docwiki.embarcadero.com/RADSt...ekt-Interfaces