Question

很多时候使用通用数组时，我需要知道我正在使用的数组的最大长度。很长一段时间我一直在使用：

MaxIntValue([Length(Array1), Length(Array2) , Length(Array3)]); // from Math unit

然后我用我的方法简化了这个（跳过输入Length（））：

// array of array of TCardBrand
function GetMaxLength(const aArrays: array of TArrayOfCarBrand): integer;

效果很好，但现在我想创建一个通用的MaxLength而我无法使用它

class function MaxLength<T>(aArrays: array of array of T): integer; - it gives error: [dcc32 Error] Unit2.pas(31): E2029 Identifier expected but 'ARRAY' found

以下是我正在测试的代码，使用Math单元中的MaxIntValue和我的方法示例的工作示例，但扩展通用TArray不起作用：

TCarBrand = record
    BrandID: integer;
    BrandName: string;
    BrandCountry: string;
  end;

  TArrayOfCarBrand = array of TCarBrand;

  TArray = class(System.Generics.Collections.TArray)
  public          
      // ERROR:  E2029 Identifier expected but 'ARRAY' found
       class function MaxLength<T>(aArrays: array of array of T): integer;
  end;

var  
  vCarsUS, vCarsEU, vCarsJP: TArrayOfCarBrand;

implementation

{$R *.dfm}


class function TArray.MaxLength<T>(aArrays: array of array of T): integer;
var
  i: Integer;
begin
  Result := 0;
  for i := Low(aArrays) to High(aArrays) do
    Result := MaxIntValue([Result, Length(aArrays[i])]);
end;


function GetMaxLength(const aArrays: array of TArrayOfCarBrand): integer;
var
  i: Integer;
begin
  Result := 0;
  for i := Low(aArrays) to High(aArrays) do
    Result := MaxIntValue([Result, Length(aArrays[i])]);
end;


procedure TForm2.Button1Click(Sender: TObject);
var vMaxLength: integer;
begin
  // test lengths
  SetLength(vCarsUS,1);
  SetLength(vCarsEU,10);
  SetLength(vCarsJP,100);

  // using MaxIntValue from Math unit - works OK
  vMaxLength := MaxIntValue([Length(vCarsUS), Length(vCarsEU), Length(vCarsJP)]);

  // using my method GetMaxLength - works OK
  vMaxLength := GetMaxLength([vCarsUS, vCarsEU, vCarsJP]);

  // trying to set Generic TArray.MaxLength - ERROR
  vMaxLength := TArray.MaxLength<TCarBrand>([vCarsUS, vCarsEU, vCarsJP]);
end;

如何扩展泛型MaxValue以接受＆lt;数组的开放数组？ T＆gt;？

Answer 1

这很简单。您的函数不接受通用数组，因为参数列表不会尝试这样做。像这样改变它。

class function MaxLength<T>(const aArrays: array of TArray<T>): Integer;

这里的关键是独占使用TArray<T>。这是通用动态数组类型，使用它可以提供比array of动态数组类型更灵活的类型兼容性。这里详细介绍了这些问题：What are the reasons to use TArray instead of Array of T?

这样做的结果是您需要替换所有动态类型声明并改为使用TArray<T>。实际上，您根本不需要声明任何动态数组类型。您可以删除此表单的所有声明：

type
  TFooArray = array of TFoo;

然后将所有TFooArray替换为TArray<TFoo>。另一个好处是您不需要声明任何数组类型，并且您的代码变得不那么冗长。

我还会评论当你只有两个参数时使用MaxIntValue没什么意义。然后使用Max功能。

如何使用Generic方法和＆lt;数组的参数数组T＆gt;？

1 个答案: