type
Ta = array of string;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure proa(var a:Ta);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a:Ta;
i:Integer;
begin
proa(a);
for i:=Low(a) to High(a) do
ShowMessage(a[i]);
end;
procedure TForm1.proa(var a:Ta);
begin
SetLength(a,3);
a[0]:='0';
a[1]:='1';
a[2]:='2';
end;
动态数组参数SetLength
最新推荐文章于 2022-06-14 17:50:41 发布