在 Delphi 中，我应该关心 "case of" 语句的圈复杂度吗？

Question

我在代码审查流程中使用 Delphi 10.3 中的内置 "Method Toxicity Metrics"，我有以下方法：

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

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

此外，由于您使用的是 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 枚举，但那是另一回事了。我只是按照我们的设计进行，您首先根据扩展设置枚举值。

在 Delphi 中，我应该关心 "case of" 语句的圈复杂度吗？

In Delphi, should I care about Cyclomatic Complexity for "case of" statements?

delphi

switch-statement

cyclomatic-complexity