arrays - 如何从Delphi函数返回数组？

Question

我的应用程序中有一个函数需要返回一个数组。我在几个地方找到了如何通过声明数组类型来做到这一点，例如

type
  TStringArray = array of string; 

然后声明我的函数

function SomeFunction(SomeParam: Integer): TStringArray;

我的问题是尝试以具有接口(interface)和实现的形式来设置它。如何声明我的类型并在接口(interface)中使用该类型进行函数声明？

Answer 1

unit Unit1;

interface

uses SysUtils;

type
  TStringArray = array of string;

function SomeFunction(SomeParam: integer): TStringArray;

...

implementation

function SomeFunction(SomeParam: integer): TStringArray;
begin
  SetLength(result, 3);
  result[0] := 'Alpha';
  result[1] := 'Beta';
  result[2] := 'Gamma';
end;

...

end.

黄金法则是单元的接口(interface)部分描述单元使用的数据类型，以及单元中驻留的类型、类和函数(它们的签名)。这是所有其他单位所看到的。 implementation 部分包含类和函数的实现。这对其他单位来说是不可见的。其他单位需要关心的是本单位的接口(interface)，本单位与外部单位签订的‘契约(Contract)’，而不是实现部分中找到的‘实现细节’。