在德尔斐，我应该关心"case of"语句的圈复杂度吗？

Question

我在代码审查流程中使用了Delphi 10.3中内置的"方法毒性指标"，我有以下方法：

function LoadTagsFromFile(const Filename: String; var Tags: TFileTags; var LastError: Integer): Boolean;
var
AudioType: TAudioFormat;
begin
AudioType := ExtToAudioType(ExtractFileExt(FileName));
case AudioType of
afApe: Result := LoadApeTags(Filename, Tags, LastError);
afFlac: Result := LoadFlacTags(Filename, Tags, LastError);
afMp3: Result := LoadMp3Tags(Filename, Tags, LastError);
afMp4: Result := LoadMp4Tags(Filename, Tags, LastError);
afOgg: Result := LoadOggTags(Filename, Tags, LastError);
afWav: Result := LoadWavTags(Filename, Tags, LastError);
afWma: Result := LoadWmaTags(Filename, Tags, LastError);
else
Result := LoadTags(Filename, Tags, LastError);
end;
end;

哪个是危险标记(CC = 8 使总体毒性超过 1(，但我对如何解决这种特定情况感到困惑？我甚至应该关心这个例子吗？

Answer 1

恕我直言，你根本不应该关心这个例子。首先，每个案例语句中的代码清晰易读。任何其他方法都会使代码更难理解，而不会提高性能。即，您正在从磁盘读取文件，与磁盘读取过程相比，您将永远无法测量因重新制定案例陈述而产生的任何性能差异。

此外，由于您使用的是 Delphi 10.3，因此您应该利用记录助手。我会做一个

TAudioFormatHelper = record helper for TAudioFormat
private
function LoadApeTags(Filename, Tags, LastError):boolean; 
... other Load functions here...
public 
procedure LoadTagsFromFile(const Filename: String; var Tags: TFileTags; var LastError: Integer): Boolean;
procedure SetFromFileName(const FileName:string)     
end

这样，您就可以摆脱这些全局类型方法并将它们绑定到枚举。

即

var
audioFormat:TAudioFormat;
begin
audioFormat.SetFromFileName(.....)
audioFormat.LoadTagsFromFIle(.....)

当然，LoadTagsFromFile也可以设置audioFormat枚举，但那是另一回事。我只是按照我们的设计，您首先根据扩展设置枚举值。