■■■Delphi中过程或函数可以嵌套定义吗？■■■

Question

Delphi中过程或函数可以嵌套定义吗?
如下：procedure abc();
begin
  ......  procedure goomoo();
  begin
    ......
    ....
  end;
  .....end;如果要实现这样的功能，该如何书写？

Answer 1

比如一个例子要showmessage('hello');procedure aa;
  procedure bb;
  begin
    showmessage('Hello');
  end; 
begin
  bb;
end;

Answer 2

谢谢！！在语句段的中间声明变量又该如何书写？
如在C语言中可以在语句段中声明变量：int fa()
{
  int a,b,c;
  c=a+b;  {  
     float a[1000];
     ......
  }}

Answer 3

谢谢！！在语句段的中间声明变量又该如何书写？
如在C语言中可以在语句段中声明变量：int fa()
{
  int a,b,c;
  c=a+b;  {  
     float a[1000];   //在语句块中声明的数组，语句块结束后，数组所站用的内存也就释放了
     ......
  }在Delphi中有类似的语句吗？
}

Answer 4

to lijixue(徐子陵):   试举一例？

Answer 5

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★在语句段的中间声明变量又该如何书写？
如在C语言中可以在语句段中声明变量：int fa()
{
  int a,b,c;
  c=a+b;  {  
     float a[1000];   //在语句块中声明的数组，语句块结束后，数组所站用的内存也就释放了
     ......
  }}
在Delphi中有类似的语句吗？

Answer 6

procedure aa;
  procedure bb;
  begin
    showmessage('Hello');
  end; 
begin
  bb;
end;这样的可以

Answer 7

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★在语句段的中间声明变量又该如何书写？
如在C语言中可以在语句段中声明变量：int fa()
{
  int a,b,c;
  c=a+b;  {  
     float a[1000];   //在语句块中声明的数组，语句块结束后，数组所站用的内存也就释放了
     ......
  }}
在Delphi中有类似的语句吗？

Answer 8

不能在语句中声明，只有在调用函数或过程中的语句前调用。
如
function tt: integer;
var
  a: integer;
  b: integer;
begin
  a := 1;
  b := 2;
  result := a + b;
end;

Answer 9

不能在语句中声明，只有在调用函数或过程中的语句前声明。
如
function tt: integer;
var
  a: integer;
  b: integer;
begin
  a := 1;
  b := 2;
  result := a + b;
end;