Delphi 2010：有人为格式化程序设置了正确的设置，不折叠匿名方法吗？

Question

使用默认设置，Delphi 2010 代码格式化程序将匿名方法折叠成一行。

有没有人发现设置来规避这个？

原码：

procedure TUnit.AppendFinalization(const StringBuilder: TStringBuilder);
begin
  AppendMemberResults(StringBuilder,
    function(Member: TGeneratableInUnit): IStringListWrapper
    begin
      Result := Member.FinalizationText;
    end
  );
end;

procedure TUnit.AppendMemberResults(const StringBuilder: TStringBuilder; const GetMemberText: TFunc<TGeneratableInUnit, IStringListWrapper>);

格式化代码：

procedure TUnit.AppendFinalization(const StringBuilder: TStringBuilder);
begin
  AppendMemberResults(StringBuilder, function(Member: TGeneratableInUnit): IStringListWrapper begin Result := Member.FinalizationText; end);
end;

procedure TUnit.AppendMemberResults(const StringBuilder: TStringBuilder; const GetMemberText: TFunc<TGeneratableInUnit, IStringListWrapper>);

如您所见，匿名方法被格式化为一行。

我觉得我在这里缺少某种设置。

Answer 1

它在 Quality Central 中记录为格式化程序错误：77547。