Return Array Type

function sep(s:string):array s1;

var

s1:array [1..40] of string;

begin

.

.

.

result:=s1;

end;

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

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

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

type

  TMyArr = array of integer;

 

function Foo(AParam: byte): TMyArr;

...

نقل قول:

---

نوشته شده توسط علی کشاورز

type

  TMyArr = array of integer;

 

function Foo(AParam: byte): TMyArr;

...

---

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

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.