在函数中,返回参数能否使用字符串数组?

Question

function getstr(s1,s2:string):array of string;
bein
  setlength(result,2);
  result[0]:=s1;
  result[1]:=s2;
end;

Answer 1

没试过，如果上面不行，可以试试：
type 
  TArrayOfString = array of string;function depstr(var s : TArrayOfString) : TArrayOfString;

Answer 2

type
  TAStr= Array[0..3] of string;function GetSubStrings(Astrings:TAstr):TAStr;
var
  i:integer;
begin
  for i:=low(Astrings) to high(Astrings) do
    result[i]:=copy(AStrings[i],1,3);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  myAstr:TAStr;
  i:integer;
begin
  myAstr[0]:='asdfasdfaf';
  myAstr[1]:='sdgdhqwrt23';
  myAstr[2]:='246243626sdfaf';
  myAstr[3]:='a$%&@&%&%$&#faf';
 MyAStr:=GEtSubStrings(MyAStr);
 for i:=low(MyAstr) to high(MyAStr) do
   showmessage(MyAStr[i])
end;这个函数和调用仅为演示用，参数形式和返回形式都可以改的。

Answer 3

应该也可以用TStringList作返回