在Delphi中，我应该关心"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

你根本不应该关心这个例子，IMHO。首先，代码在每个案例陈述中清晰易懂。任何其他方法都会使代码更难理解，而不会增加性能。也就是说，您正在从磁盘读取文件，您将永远无法测量与磁盘读取过程相比，案例语句的任何重新表述所产生的任何性能差异。

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