数组问题(50分)

lunyx · 2006-04-09

procedure TForm1.Button1Click(Sender: TObject);
var
a:array of String;
begin
SetLength(a,2);
a[1]:='q';
a[2]:='df';
Showmessage(a[1]);
end;
抛出异常，为什么啊

hncsym · 2006-04-09

数组是用下标0开始的，应该这样：
a[0]:='q';
a[1]:='df';

lunyx · 2006-04-09

哦，，谢谢了，再问，如何结贴分钱？我是新来的。。[

][

]

lunyx · 2006-04-09

还有啊，数组的下标可以用变量来表示吗？？

hncsym · 2006-04-09

数组下标是任何有序类型，不可以用变量来表示，但它的定义是灵活的，可以根据要求动态生成数组

lunyx · 2006-04-09

Tde_Str=array of String;
Pde_Str=^Tde_Str;

function de_Str(S:String)

de_Str;
var
R:array of String;
i:integer

begin
SetLength(R,10);
for i:=0 to length(S) do
begin
R:='a';
end;
result:=R;
end;
帮看看有啥不对头的？

hncsym · 2006-04-09

function de_Str(S:String)

de_Str;
var
R:array of String;
i:integer

begin
SetLength(R,10);
for i:=0 to length(S)-1 do
begin
R:='a';
end;
result:=R;
end;

lunyx · 2006-04-09

result:=@R 吧；
引用成问题：
procedure TForm1.Button2Click(Sender: TObject);
var
SZ

de_Str;
i :integer;
begin
SZ:= de_Str('abcd');
for i:= 0 to high(SZ^)-1 do
showmessage(SZ^)

end;
end.

lunyx · 2006-04-26

硬塞给你钱还不要？？？？？？？