怎么用函数返回一个数组?

Question

怎么用函数返回一个数组?

Answer 1

函数的返回值是一个数组类型吗？
和返回
integer，string型是一样的

Answer 2

type
  TArray = array of Integer;function GetArray(const Len: Cardinal): TArray;
begin
  SetLength(Result, Len);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  MyArray: TArray;
  I: Integer;
begin
  MyArray := GetArray(10);
  ShowMessage(IntToStr(Length(MyArray))); // 数组长度
  // 使用数组
  for I := Low(MyArray) to High(MyArray) do
    MyArray[I] := I;  // 察看数组
  for I := Low(MyArray) to High(MyArray) do
    ShowMessage(IntToStr(MyArray[I]));
end;

Answer 3

http://expert.csdn.net/Expert/topic/2074/2074151.xml?temp=.5879633

Answer 4

学习中...我想问一下，我将一些公用变量和函数放在单独的一个PublicUnit.Pas（它没窗体）中， 
也没有Public等字样，我手工加上去，好象没用，怎么办！？？？