Question

delphi 中如何定义 一个返回字符数组的 function

function StrToArray(str:string):array of Char;
var
I,strLength : Integer;
arr:array of Char;
begin
setlength(arr, sizeof(str));
for I := 0 to sizeof(str)-1 do
begin
arr[I] := str[I+1];
end;
Result:= arr;
end;
怎么改才对啊 ？

Answer 1

两种方法：
1、带一个参数返回。
var
arrTest: array[0..3] of string;
//声明函数
function MyFunc(var arrTest: array of string): Boolean;
2、定一个一个返回类型。
type
TArrResult = array[0..3] of string;
//声明函数
function MyFunc: TArrResult;
******************************************************************
这样改：
type
TArrTest = array of string;

function StrToArray(str:string): TArrTest;
var
I,strLength : Integer;
arr:TArrTest;
begin
setlength(arr, sizeof(str));
for I := 0 to sizeof(str)-1 do
begin
arr[I] := str[I+1];
end;
Result:= arr;
end;