procedure TForm1.btn1Click(Sender: TObject);
var
str:string;
procedure test();
begin
ShowMessage(str);
end;
begin
str:='hello world';
test();
end;
Delphi 函数嵌套 定义与调用
最新推荐文章于 2023-01-29 13:18:12 发布
procedure TForm1.btn1Click(Sender: TObject);
var
str:string;
procedure test();
begin
ShowMessage(str);
end;
begin
str:='hello world';
test();
end;