函数返回多个值？各位大虾帮忙？

Question

function Explode(const source, ch: string): TResultArray;
var
  temp: string;
  i: integer;
begin
  temp := source;
  i := pos(ch, source);
  while i <> 0 do
  begin
    SetLength(Result, Length(Result) + 1);
    Result[Length(Result) - 1] := copy(temp, 0, i - 1);
    delete(temp, 1, i);
    i := pos(ch, temp);
  end;
  SetLength(Result, Length(Result) + 1);
  Result[Length(Result) - 1] := Temp;
end;
类似于PHP中的Explode函数，用于把一个按照特定字符分割的字符串分开

Answer 1

TResultArray = array of string;

Answer 2

to debussy 
use TResultArray = array of string;
如何实现？谢谢

Answer 3

没弄懂什么意思，要求函数返回string类型，却有str1,str2，不懂。

Answer 4

总之，返回两个字符串，str1,str2.函数类型为TResultArray 即可

Answer 5

是用地址参数；
procedure a(var i:string);

Answer 6

to debussy 
SetLength(Result, Length(Result) + 1),
result是数组好象不对。