Question

delphi编程 定义数组类型

我在type下面定义了一个数组类型，如下：
Tarr = array of string;
但是，一运行，就显示这行错误，弹出对话框，如图：

为什么会这样？？求解释？谢谢大家~

Answer 1

array[0..X] of string

不写[0..x]表示动态数组，动态数组要setlength来设置长度，否则长度是0，什么也没有，当然错。。。还有为什么要学delphi哪？？？我都学后悔了，很久不用了。。。已经过时了，公司都出售了，也基本不更新，早晚跟不上时代被淘汰。。。

追问

type
……
Tarr=array[1..500] of string; //定义数组类型
……
function shuzu1(s1:string;s2:integer):Tarr ;

function TForm1.shuzu1(s1:string;s2:integer):TArr;
begin
……
end;

加上长度还是不行。。还是显示这个错误。。

Answer 2

等号问题，delphi中等号是判断是否相等，定义用冒号,如 Tarr: array of string;

追问

type
……
Tarr: array  of string;       
……
   function shuzu1(s1:string;s2:integer):Tarr ;

function TForm1.shuzu1(s1:string;s2:integer):TArr;
begin
……
end;

 把等号换成冒号之后，还是在这行出错，显示如下：

追答

Tarr你没定义大小，如果想使用必须设置大小，没设置之前是不能用的。你没设置大小，然后就直接设置成返回值，肯定有问题

追问

type
……
Tarr=array[1..500] of string;         //定义数组类型
……
   function shuzu1(s1:string;s2:integer):Tarr ;

function TForm1.shuzu1(s1:string;s2:integer):TArr;
begin
……
end;

加上长度还是不行。。还是显示如下错误：

追答

这样定义Tarr:array[1..500] of string;

追问

ype
……
Tarr:array[1..500] of string;        //定义数组类型
……
   function shuzu1(s1:string;s2:integer):Tarr ;

function TForm1.shuzu1(s1:string;s2:integer):TArr;
begin
……
end;

还是出错。。如下：

追答

对不住，理解错了。
type
TArr = array of integer;
放到函数定义之前

追问

ype
……
Tarr:array[1..500] of string; //定义数组类型
……
function shuzu1(s1:string;s2:integer):Tarr ; //定义函数

我是放在函数定义的前面呀。。

追答

单独自己定义个type
type
TArr = array of integer;

放到 class外边试试，找上面的写，其实一开始你是对的，位置没放对而已