Return Array Type

[pouyaa]

function sep(s:string):array s1;
var
s1:array [1..40] of string;
begin
.
.
.
result:=s1;
end;

چجوری میشه خروجی تابع رو از نوع array تعریف کرد

[Mahyaa]

procedure ReturnArray(S : String ; var ArrayReturned : Array of Byte);

از این طریق می تونی آرایه رو به صورت خروجی بگیری .
ابعاد آرایه رو متونی از بیرون Procedure مشخص کنی.

[vcldeveloper]

type
TMyArr = array of integer;

function Foo(AParam: byte): TMyArr;
...

[pouyaa]

type
TMyArr = array of integer;

function Foo(AParam: byte): TMyArr;
...

اشتباه !
من تو public<-type همین رو معرفی کردم ولی میگه شما نمیتونین از آین type استفاده کنین
OOps!s

[B_YAGHOBI]

type
MyArr = Array Of String ;
TForm6 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Function Test(A : Byte) : MyArr ;
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

{ TForm6 }

procedure TForm6.Button1Click(Sender: TObject);
Var S : MyArr ;
begin
S := Test(2) ;
caption := S[0] + ' ' + S[1] ;
end;

function TForm6.Test(A: Byte): MyArr;
Var I : Integer ;
begin
SetLength( Result, A ) ;
For I := 0 To A-1 Do
Result[i] := 'Number : ' + Chr(Ord('0')+I) ;
end;

end.