(Abstract)Factory Pattern und Datentransfer

[Sir Rufo]

Wenn es immer die gleichen Daten sind, dann benötigst du so etwas

Delphi-Quellcode:

TData = class
  // alle benötigten Eigenschaften
end;

IFilledForm = interface
['{GUID}']
// was soll man mit dem ausgefüllten Formular machen können?
  procedure SendAsEmail( ... );
end;

IFillData = interface
['{GUID}']
  function WithThis( AData : TData ) : IFilledForm;
end;

Die Factory würde ich eher so aufbauen

Delphi-Quellcode:

TFillDataFactory = class
public
  procedure RegisterForm( AFillData : IFillData; const AAspect : string; AValidSince : TDateTime );

  function GetFillData( const AAspect : string; ADate : TDateTime ) : IFillData;
end;

Und aufgerufen wird das dann mit

Delphi-Quellcode:

MyFillDataFactory
  .GetFillData( CurrentCompany.Id, Now() )
  .FillData( TheData )
  .SendAsEmail( ... );