过程和函数的作用域

在单元接口interface部分声明的过程或函数在整个单元内有效。当其他单元（客户单元）引用
该单元时，这些过程和函数可以被其他客户单元使用。

unit Unitl;       //单元首部
interface         //接口部分
  function getstring(sl,s2:string):string;/∥在接口部分声明函数
  
implementation    //实现部分

function getstring(s1,s2:string):string;
begin
  result:=s1+s2;
end;

end.              //单元结束

在实现部分implementation的隐含声明部分声明的过程或函数在单元内有效，但不能在单元外使用，
即使其他单元引用该单元，也不能使用这些过程或函数。

unit Unitl;       //单元首部
interface         //接口部分
 
implementation    //实现部分

//在此不用显示声明，隐含声明认为在实现部分己声明
function getstring(s1,s2:string):string;
begin
  result:=s1+s2;
end;

end.              //单元结束

在实现的任何子程序段中声明的过程或函数，只在该程序段内有效。

function getvalue:string;
var
  s:string;
  function getadd(s1,s2:string):string;
  begin
    result:=s1+s2;
  end;
//在程序段中声明的函数
begin
  result:=getadd('lkh','true');
end;