Procedure, Array als Rückgabewert?

[Luckie]

Geht doch auch mit einer Funktion. Du musst dir nur einen eigenen Typen deklarieren, wie oben schon mal beschrieben.

Delphi-Quellcode:

type
  TMyIntArray = array of Integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function foo(len: Integer): TMyIntArray;
var
  i: Integer;
begin
  SetLength(result, len);
  for i := 0 to Length(result) - 1 do
    result[i] := i;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  IntArray: TMyIntArray;
begin
  IntArray := foo(5);
  for i := 0 to length(IntArray) - 1 do
    Listbox1.Items.Add(IntToStr(IntArray[i]));
end;