delphi语法诊断

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:04:48
procedure TForm1.test(a: array of string);//自定义
begin
a[1]:='hello';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
b:array[1..10] of string;
begin
test(b);
edit1.Text :=b[1];
end;
编辑框中为何是空白？上述语句能把a[1]的值‘hello'传给b[1]吗？

procedure TForm1.test( var a: array of string);//这里要加 var
begin
a[Low(a)]:='hello'; //这里应该是 Low(a)
end;
procedure TForm1.Button1Click(Sender: TObject);
var
b:array[1..10] of string;
begin
test(b);
edit1.Text :=b[1];
end;

procedure TForm1.test( var a: array of string);//这里要加 var
begin
a[Low(a)]:='hello'; //这里应该是 Low(a)