Delphi_02_Delphi 프로그램의 구조

program MultiUnit;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

begin
    //  unit1    ，                
    strGreet:='Hello world';

    //  unit1                     
    Greeting(strGreet);

    //  unit2    ;                
    nAdd:=10;
    nAddfactor:=11;
    writeln(GetSum(nadd,naddfactor));


    {
    1、  pai    unit1          ，           
    }
    //writeln(10*10*pai);

    {
    1、  function GetArea(var r:single):single;   unit1          
                     
    }
    //writeln(GetArea(3.0));

    {
    1、             unit2  ，      unit2     
    2、    unit1     unit2  ，        ，        
             unit2     。
    3、    unit1          unit2  ，           unit2
               
    }
    //showUnit2();



    readln;
end.

{           
1、Delphi               
2、                 *.pas    ，      ，      
            
3、            :
                 unit      
                interface      
                implementation      
               initialization      
               finalization
               end.   
}

{      
1、 unit        ，
2、      ：  unit      
3、                       
}
unit Unit1;

{           
1、                            ,
             、  、          C       
2、          interface   ，         implementation   
3、       
      A、   uses   , uses       interface  
      B、   var        
      C、               procedure      function
}
interface
var
    strGreet:string;
    nAdd:integer;
    nAddFactor:integer;

{         
1、       procedure        
2、            
3、       
}
procedure Greeting(var strGreet:string);

{         
1、       function        
2、            
3、       
}
function GetSum(var value1,value2:integer):integer;


{           
1、                ，             
2、                  、  
3、           implementation     ，        initialization
       end.   
4、         
        A、uses   ,     uses  ，     implementation   
        B、var       
        C、            、  
        D、              、  
}
implementation
uses
    unit2;

var
    pai:single=3.1415926;

{         
1、                    ，       var    ，  
             var    
}
procedure Greeting(var strGreet:string) ;
begin
    writeln(strGreet);
end;

{         
1、            
}
function GetSum(var value1,value2:integer):integer;
begin
    GetSum:=value1 + value2;
end;

function GetArea(var r:single):single;
begin
    GetArea := pai * r * r;
end;

procedure showUnit2();
begin
    {
    1、   unit2  ，      unit2     
    }
    writeln(unit2Var);
end;

end.

unit Unit2;

interface
var
    unit2Var:integer=33;
implementation

end.