Delphi ERP系统中价格替换逻辑的最优实现方式问询

针对你在ERP系统中更新产品价格的两种实现，从效率和可维护性两个维度分析如下：

两种实现的核心差异 #

第一种实现（分支优先） #

if DlgBuff.AsInteger[0, FldReplSmall]=0 then             // Replace Smaller Values: No
begin
  if OldPriceW>PriceW then
    PriceW:=OldPriceW;
  if OldPriceR>PriceR then
    PriceR:=OldPriceR;
end
else if DlgBuff.AsInteger[0, FldReplSmall]=2 then        // Replace smaller non zero values
begin
  if (OldPriceW>PriceW) and (PriceW=0) then
    PriceW:=OldPriceW;
  if (OldPriceR>PriceR) and (PriceR=0) then
    PriceR:=OldPriceR;
end;

• 可读性优势：逻辑分层清晰，先根据配置规则（FldReplSmall的取值）划分大分支，再分别处理两个价格字段，阅读时能快速对应“规则→字段处理”的关联关系，新人接手或后续修改规则时更容易定位。
• 效率劣势：重复执行了价格比较逻辑（OldPriceW>PriceW、OldPriceR>PriceR），且每次分支判断都要访问DlgBuff.AsInteger，如果后续新增价格字段，需要在两个分支内同步添加代码，容易出现遗漏。

第二种实现（字段优先） #

if OldPriceW>PriceW then
  if (DlgBuff.AsInteger[0, FldReplSmall]=0) or ((DlgBuff.AsInteger[0, FldReplSmall]=2) and (PriceW=0)) then
    PriceW:=OldPriceW;
if OldPriceR>PriceR then
  if (DlgBuff.AsInteger[0, FldReplSmall]=0) or ((DlgBuff.AsInteger[0, FldReplSmall]=2) and (PriceR=0)) then
  PriceR:=OldPriceR;

• 效率优势：确实减少了无效判断次数——只有当旧价大于新价时，才会检查配置规则。如果业务场景中多数情况下旧价<=新价，那么配置检查的次数会大幅减少，整体执行效率更高；同时没有重复的分支结构，新增字段时只需复制单字段的判断逻辑即可。
• 可读性劣势：单条判断的条件表达式较长，初看需要拆解逻辑，不如第一种的分层结构直观，对不熟悉业务规则的开发者不够友好。

选择建议 #

• 若极致效率是优先考虑项（比如该价格更新逻辑会被高频调用），第二种实现更合适，搭配下面的小优化还能进一步提升效率：把配置值提前提取为变量，避免重复访问DlgBuff.AsInteger：

var
  ReplSmallMode: Integer;
begin
  ReplSmallMode := DlgBuff.AsInteger[0, FldReplSmall];

  if OldPriceW>PriceW then
    if (ReplSmallMode=0) or ((ReplSmallMode=2) and (PriceW=0)) then
      PriceW:=OldPriceW;
  if OldPriceR>PriceR then
    if (ReplSmallMode=0) or ((ReplSmallMode=2) and (PriceR=0)) then
      PriceR:=OldPriceR;
end;

• 若团队更看重长期可维护性，第一种实现的分层结构更友好，后续修改规则时更容易调整分支内的逻辑。

内容的提问来源于stack exchange，提问作者Peter Andrew