Forum: Object-Pascal / Delphi-Language
Delphi
by Stevie,
11. Feb 2015
Macht man nicht, weil man dann mit GUIDs verschissen hat... :roll:
Forum: Object-Pascal / Delphi-Language
Delphi
by Stevie,
11. Feb 2015
Mit nem Command Pattern hätte sich das sauberer lösen lassen:
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by Stevie,
11. Feb 2015
Die Alternative heißt: neue Attribute Klasse, und dort den Code implementieren.