函数返回数组-例子

 

对.先定义一个 数组类型. 然后函数返回这个数组类型 就可以了.

 

type
  TStrArr = array of string;

function strSplit(strSplit,str:string):TStrArr ;
var
  sl:TStringList;
  I: Integer;
begin
  try
    sl:=TStringList.Create;
    sl.LineBreak:=strSplit;
    sl.Text:=str;
    SetLength(result,sl.Count);
    for I := 0 to sl.Count - 1 do
      result[i]:=sl[i];
  finally
    sl.Free;
  end;
end;

 

例子3：

 

//首先定义一个数组类型
type
  TArr = array of integer;
//然后定义返回这个数组类型的函数
function strSplit(strSplit,str:string):TArr ;
var
  str: array[1..2] of integer;
  i: integer;
begin
  str[1]:=0;
  str[2]:=1;
  for i:= 1 to 2 do
      result[i]:=strl[i];  
end;

方法有二： 1、返回动态数组（如楼上意见），但需要在给数组元素赋值之前，申请空间，调用SetLength，楼上的忽略了这句，必然出现数据访问异常；调用SetLength也有两种方案，其一是每收集一个，就申请扩大一次，再来赋值，其二是批量申请一批，例如一批几百个，在未超越几百个时，可以随时赋值，当达到数据长度极限时，再次批量申请，最后根据实际收集到的元素个数，重新设定一次长度。 2、返回足够大的静态数组，要求预先定义一个足够大的数组类型和变量（根据需要而定，例如假设文件不大，估计不会超过1万个数儿，就定为10000），以变量作为参数传入(var传指针)，函数处理时可以随意赋值，但需要通过返回值指明实际上收集到的元素个数。

 

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

......

//3. 根据预定义类型来声明数组： type   TMyArr = array[0..10] of Integer;  //先定义一个数组类型 var   MyArr: TMyArr;  //再定义静态数组 

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;