function returning an array

[A-man]

Is it possible to have a function return a 1 dimensional array? I have this:

function arr(): array of integer;
begin
 result[0] := 0;
 result[1] := 1;
 result[2] := 2;
 result[3] := 3;
end;

// later i have this

blah := arr();

 

I'm just trying to get the fundamentals down. It doesn't throw any syntax errors, so it seems like it should work. I also noticed that the function doesn't show up in the function list if it is an array of (something).

[FHannes]

You should replace "array of integer" with TIntArray, afaik by default in pascal it's not allowed to return an "array of", though it's possible that SCAR's engine supports it.

[A-man]

Alright, that works. Thanks

[Janilabo]

Yehp:

 

function Test: array of Integer; // Can be replaced with TIntArray, both ways work.
begin
 Result := [1231, 342, 53463, 2353];
 { Other way:
 SetLength(Result, 4);
 Result[0] := 1231;
 Result[1] := 342;
 Result[2] := 53463;
 Result[3] := 2353;
 }
end;

var
 tmp: TIntArray;

begin
 ClearDebug;
 tmp := Test;
 WriteLn('tmp: ' + TIAToStr(tmp));
 SetLength(tmp, 0);
end.