如何設計階級依賴性試圖避免Demeter法

Question

好吧，我已經搜索過，無法找到適合我的問題的解決方案，我正在重新設計我們的銷售點系統的一部分。 Let's假設我們有以下類：現在

TWorkShift = class 
    Date: TDateTime; 
    fTotalSold: Currency; 
    fSales: TList<TSale>; 
public 
    property TotalSold: Currency read fTotalSold write fTotalSold; 
    property Sales: Currency read fSales write fSales; 
end; 

TSale = class 
    fAmount: Currency; 
    fWorkShift: TWorkShift; 
public 
    property Amount: Currency read fAmount write fAmount; 
    procedure Save; 
end; 

，我面臨的問題是試圖來最好的主意，不違反迪米特法則。我試圖做到的是以下幾點：

1. 新TSale保存我想將它添加到當前用戶的TWorkShift的銷售清單，也是我要總結的量每次出售給TWorkShift的「TotalSold」。

從來就嘗試兩種不同的方法：

解決方法A：

// Let's假設我們有與ID 1工作轉變，會從數據庫加載： CurrentShift：= TWorkShift.Create（1）;

NewSale := TSale.Create; 
NewSale.Amount:=100; 
NewSale.Save; 

CurrentShift.Sales.Add(NewSale); 
CurrentShift.TotalSold := CurrentShift.TotalSold + NewSale.Amount; 

這種方法的問題是，It's難以測試，因爲我想封裝和的邏輯在一些類或其他地方的（一類新的可能？）。

方法B：

我的另一種方法是，包括TSale類本身內部的代碼：

procedure TSale.Save; 
begin 
    SaveToDataBase; 

    fWorkShift.Sales.Add(Self); 
    fWorkShift.TotalSold := fWorkShift.TotalSold + Self.Amount; 
end; 

這種方法我認爲違反迪米特法則和doesn't覺得我的權利。

我想要找到一個「正確的方法」來做到最大限度地簡化代碼和簡化維護。所以任何建議，將不勝感激。

感謝

Answer 1

如果你想添加一個出售給TWorkShift，那麼你應該有

TWorkShift.AddSale(aSale: TSale); 
begin 
    Sales.Add(aSale); 
end; 

換句話說，TWorkShift應該「問」它需要的東西。

此外，我沒有看到TSale會有TWorkShift字段的任何理由。輪班有很多銷售，但爲什麼銷售有一個WorkShift？

Answer 2

當您將項目添加到TList以便您可以使用OnNotify時，您正在做某些事情。 我不知道Aurelius是否也在使用該事件，因此我爲此添加了一些代碼。在將列表分配給TWorkShift對象之後，您只需查看賦予OnNotify是否可以在框架內發生，因爲那樣它可能會覆蓋NotifySales事件處理程序。

type 
    TWorkShift = class 
    private 
    Date: TDateTime; 
    fTotalSold: Currency; 
    fSales: TList<TSale>; 
    fNotifySales: TCollectionNotifyEvent<TSale>; 
    procedure NotifySales(Sender: TObject; const Item: TSale; 
     Action: TCollectionNotification); 
    procedure SetSales(const Value: TList<TSale>); 
    public 
    property TotalSold: Currency read fTotalSold write fTotalSold; 
    property Sales: TList<TSale> read fSales write SetSales; 
    end; 

procedure TWorkShift.NotifySales(Sender: TObject; const Item: TSale; 
    Action: TCollectionNotification); 
begin 
    if Assigned(fNotifySales) then 
    fNotifySales(Sender, Item, Action); 

    case Action of 
    cnAdded: fTotalSold := fTotalSold + Item.Amount; 
    cnRemoved: fTotalSold := fTotalSold - Item.Amount; 
    end; 
end; 

procedure TWorkShift.SetSales(const Value: TList<TSale>); 
begin 
    if Assigned(fSales) then 
    begin 
    fSales.OnNotify := fNotifySales; 
    fNotifySales := nil; 
    end; 

    fSales := Value; 

    if Assigned(fSales) then 
    begin 
    fNotifySales := fSales.OnNotify; 
    fSales.OnNotify := NotifySales; 
    end; 
end;