function sep(s:string):array s1;
var
s1:array [1..40] of string;
begin
.
.
.
result:=s1;
end;
چجوری میشه خروجی تابع رو از نوع array تعریف کرد
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;
...
اشتباه !نوشته شده توسط علی کشاورز
من تو 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.
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 29 بهمن 1386 در 15:23 عصر دلیل: تگ CODE