714_____________________________________________ 12

if(PO == NULL) PO = Pnew; // PO     
else Pold->pr = Pnew;     //    
Pold = Pnew;

     (PO = NULL),   PO  -
     (Pnew).      
        (Pold). 
      .    
  NULL.    ,   -
    .

       ,   -
  . :

Pnew = PO;

while(Pnew != NULL)

<
ShowMessage(Pnew->Fam + " " + Pnew->Nam + " " + Pnew->Par) ;

Pnew = Pnew->pr;         //    

)

      ,    .. 
        .   -
     .

         -
,     . ,  C++Builder 
   TList  TStringList,     
      .   , -
   15.

12.11.3    C++

,     ,     ,  
 C++.   C++        -
  (.  12.13).

 ,      - -
  -.     -
     TPers.     
- Show,  ,   :

struct TPers {

AnsiString Fam,Nam,Par;

unsigned   Year;

bool       Sex;

AnsiString Dep;

TPers * pr;

void Show()
{

ShowMessage("  \""+Dep+"\" "+Fam+" "+Nam+" "+
Par+", "+IntToStr(Year)+" ..,  "+
(Sex ? "" : ""));

 Show   :   -
   , 1960 ..,  .

   -    -
         . -
:

Pers.Show() ;

Pnew->Show();