实体

uses System.SysUtils, System.Generics.Collections;

type
  //entity: a value with no identity of its own
  TOrderLine = record
    Sku: string;
    Price: Integer;
    Count: Integer;
    function Cost: Integer;
  end;

  //entity: an identity and the rules around it
  TOrder = class
  private
    FId: Integer;
    FLines: TList<TOrderLine>;
    FPaid: Boolean;
  public
    constructor Create(AId: Integer);
    destructor Destroy; override;
    procedure Add(const Sku: string;
      Price, Count: Integer);
    function Size: Integer;
    function Total: Integer;
    function Discount: Integer;
    function Payable: Integer;
    procedure Pay;
    property Id: Integer read FId;
    property Paid: Boolean read FPaid;
  end;

function TOrderLine.Cost: Integer;
begin
  Result := Price * Count;
end;

constructor TOrder.Create(AId: Integer);
begin
  FId := AId;
  FLines := TList<TOrderLine>.Create;
end;

destructor TOrder.Destroy;
begin
  FLines.Free;
  inherited;
end;

procedure TOrder.Add(const Sku: string;
  Price, Count: Integer);
var
  Line: TOrderLine;
begin
  if Count <= 0 then
    raise EArgumentException.Create('bad count');
  Line.Sku := Sku;
  Line.Price := Price;
  Line.Count := Count;
  FLines.Add(Line);
end;

function TOrder.Size: Integer;
begin
  Result := FLines.Count;
end;

function TOrder.Total: Integer;
var
  Line: TOrderLine;
begin
  Result := 0;
  for Line in FLines do
    Inc(Result, Line.Cost);
end;

//business rule: 10% off from 200
function TOrder.Discount: Integer;
begin
  Result := 0;
  if Total >= 200 then
    Result := Total div 10;
end;

function TOrder.Payable: Integer;
begin
  Result := Total - Discount;
end;

//business rule: an empty order is never paid
procedure TOrder.Pay;
begin
  if FLines.Count = 0 then
    raise EInvalidOpException.Create('empty order');
  FPaid := True;
end;

//client code
//no database and no screen anywhere above
var
  Order: TOrder;
begin
  Order := TOrder.Create(1001);
  try
    Order.Add('pen', 30, 2);
    Order.Add('lamp', 190, 1);
    WriteLn('order ', Order.Id);
    WriteLn('lines ', Order.Size);
    WriteLn('total ', Order.Total);
    WriteLn('discount ', Order.Discount);
    WriteLn('payable ', Order.Payable);
    Order.Pay;
    WriteLn('paid ', Order.Paid);
  finally
    Order.Free;
  end;

  //a line that breaks the rule never gets into the order,
  //so the order below stays empty and is refused too
  Order := TOrder.Create(1002);
  try
    try
      Order.Add('pen', 30, 0);
    except
      on E: EArgumentException do
        WriteLn('refused: ', E.Message);
    end;
    try
      Order.Pay;
    except
      on E: EInvalidOpException do
        WriteLn('refused: ', E.Message);
    end;
  finally
    Order.Free;
  end;
  //printed: order 1001
  //         lines 2
  //         total 250
  //         discount 25
  //         payable 225
  //         paid TRUE
  //         refused: bad count
  //         refused: empty order
end.