GetMem的用法, 高手帮解释一下

                            
PMyrcd   =   ^TMyrcd;   
  TMyrcd   =   record  
  n:   integer;  
  s:   String;  
   
  var  
  prcd:   PMyrcd;  
  procedure   TTT;  
  GetMem(prcd,   sizeof(prcd));  
  prcd.s;     //   此句报错  
   
  顺便问一下如果record里面有Tlist类型用new能分配么  
 

查看回复

最新教程