type
TArrayString = array of string; //定义数组类型 !!
procedure TForm1.Button1Click(Sender: TObject);
var
aa:TArrayString; //声明一个数组 ,等同于 aa : array of string;
begin
SetLength(aa, 3); //首先应该设定数组aa的长度即元素数
aa[0] := '第一个元素'; //赋值
aa[1] := '第二个元素';
aa[2] := '第三个元素';
ShowMessage(Format('%s'#10'%s'#10'%s'#10,[aa[0],aa[1],aa[2]]));//看一下
end;
TArrayString = array of string; //定义数组类型 !!
procedure TForm1.Button1Click(Sender: TObject);
var
aa:TArrayString; //声明一个数组 ,等同于 aa : array of string;
begin
SetLength(aa, 3); //首先应该设定数组aa的长度即元素数
aa[0] := '第一个元素'; //赋值
aa[1] := '第二个元素';
aa[2] := '第三个元素';
ShowMessage(Format('%s'#10'%s'#10'%s'#10,[aa[0],aa[1],aa[2]]));//看一下
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货