1064  15

	
Remove	      
Sort	 

      TObject.



      TList    -
      ,  -
    .     
     .

//   

typedef struct

{

AnsiString Name;

Word Year;

t Rec;

//    
Rec * PRec;

TList *MyList  new TList;     //  
PRec = new Rec;                 //    
PRec->Name = "";          //   
PRec->Year = 1960;

MyList->Add(PRec);      //      
//      
PRec = new Rec;

PRec->Name = "";

PRec->Year = 1950;

MyList->Add(PRec);

//         
((Rec *)MyList->Items[I])->Year = 1970;

//      
PRec = (Rec *)MyList->Items[0] ;

forfint i = 1; i < MyList->Count; i++)

if(((Rec *)MyList->Items[i])->Year > PRec->Year)
PRec = (Rec *)MyList->Items[i];

ShowMessage("   " + PRec->Name);

//  

forfint i = 0; i < MyList->Count; i++)
delete (Rec *)MyList->Items[i];

delete MyList;

TMetafile  

  Win32 Enhanced
 TObject  TPersistent  TGraphic

 graphics



 TMetafile   ,  -
  .emf Windows.  TMetafile    -
 .        Draw 