Question

delphi怎样写使函数返回一个数组。给我例子？

Answer 1

Type
TArrayString = Array of String;//自定义类型

......

function GetArrayString(VLength: Integer): TArrayString;//返回一个宽度VLength的数组
var
I: Integer;
begin
SetLength(Result, VLength);
for I := Low(Result) to High(Result) do
Result[I] := IntToStr(I);
end;

Answer 2

function Testarray (var v: array of integer): Boolean;
var
i: integer;
begin
for i:=low(v) to high(v) do
v[i]:=v[i]+1;
Result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
v: array of integer;
K: boolean;
begin
setlength(v,5);
for i:=0 to 4 do
v[i]:=i;
k:=Testarray(v);
if k then
for i:=0 to 4 do
memo1.Lines.Add(inttostr(v[i]));
end;

zzluo正解，佩服。