Function returning an Array??

[storm1]

Hi there, I am new to Delphi and to this forum, and would appriciate some help.
I need a function I have written to return a dynamic array, but it doesn't seem to want to play and will only let me return a variable of type string, integer etc?
Is it possible for a function to return an array?
Sorry if this is a stupid question.
Thanks
Storm

 

[sggaunt]

Hi

You have to declare an array type for the function to return

e.g.
type arraytype = array [0..10] of integer;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);

private
function returnarray(a: integer): arraytype;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
holder: arraytype;
implementation

{$R *.DFM}
function TForm1.returnarray(a: integer): arraytype;
begin
result[a] := 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
holder := returnarray(1);
edit1.text := inttostr(holder[1]);
end;

Hope that helps.
Steve

 

[storm1]

Thanks very much, that's just what I was after.
Storm