没法。干嘛不直接定义成二维的数组呢 var //s1,s2,s3:array[1..5]of string; s:array[1..3,1..5] of string;
type TMyStringArray = array[1..5] of string; TMyStringArrayArray = array[0..0] of TMyStringArray; PMyStringArrayArray = ^TMyStringArrayArray;function A(p: PMyStringArray; i: Integer): TMyStringArray; begin Result := p[i]; end;
var
//s1,s2,s3:array[1..5]of string;
s:array[1..3,1..5] of string;
TMyStringArray = array[1..5] of string;
TMyStringArrayArray = array[0..0] of TMyStringArray;
PMyStringArrayArray = ^TMyStringArrayArray;function A(p: PMyStringArray; i: Integer): TMyStringArray;
begin
Result := p[i];
end;