Anonyme Methoden in Attributen

[Stevie]

Mit nem Command Pattern hätte sich das sauberer lösen lassen:

Delphi-Quellcode:

type
  ISearchResultCommand = interface
    function CanExecute(AData: TSearchResultObject): Boolean;
    procedure Execute(AData: TSearchResultObject); 
  end;

Das wird dann von allen deinen Operationen z.B. TBestellungenSchreiben implementiert.
Ganz nebenbei hast du deinen Code noch schön entkoppelt und deine ganzen Operationen sitzen nicht in den TSearchProvider Klassen sondern sind eigenständig.

Zudem ist das ganze viel flexibler denn nun kannst du bei den search providern eine Liste von ISearchResultCommand reinpacken, gibst den Dingern noch ne Name oder Caption Property und bumms ist das einbauen einer neuen Operation ein Kinderspiel: einfach neue Klasse bauen und zur Liste hinzufügen. Damit kannste mit einer Schleife bequem dein Kontextmenü befüllen.

[Sir Rufo]

Hüstel ... das macht man doch generisch

Delphi-Quellcode:

ICommand = interface
  function CanExecute : Boolean;
  procedure Execute;
end;

ICommand<T> = interface
  function CanExecute( const Value : T ) : Boolean;
  procedure Execute( const Value : T );
end;

[Stevie]

Zitat von Sir Rufo:

Hüstel ... das macht man doch generisch

Macht man nicht, weil man dann mit GUIDs verschissen hat...

[himitsu]

Nja, man muß den Generic nur nochmal ableiten, dann geht das schon.
Und das Problem gibt es nur, wenn man auf das Interface prüfen/casten will/muss.

Delphi-Quellcode:

type
  // falsch
  IIntegerCommand = ICommand<Integer>;

  // richtig
  IIntegerCommand = Interface(ICommand<Integer>)
    ['{00000000-0000-0000-C000-000000000046}']
  end;

Genau so muß man es auch machen, wenn man generische Klassen in der VCL benutzen will, denn < und > ist in Typen dort nicht erlaubt.