^Tcoinsrec

Question

type   
                  pcoinsrec   =   ^tcoinsrec;   //?
                  tcoinsrec   =   record   //?
tcoinsrec不知道从哪里冒出来 的？请大家 帮忙

Answer 1

  interface   
          type   
                  pcoinsrec   =   ^tcoinsrec;   
                  tcoinsrec   =   record   
                          quarters,   
                          dimes,   
                          nickels,   
                          pennies:word;   
          end;   
          {$ifndef   pennieslib}   
          function   penniestocoins(totpennies:word;coinsrec:pcoinsrec):word;stdcall;   
          {$endif}   

Answer 2

pcoinsrec  =  ^tcoinsrec;  
tcoinsrec  =  record  
  quarters,  
  dimes,  
  nickels,  
  pennies:word;  
end;  tcoinsrec 是一个结构体，pcoinsrec 就是指向该结构体的指针。

Answer 3

Tcoinsrec是从这里冒出来的
                  tcoinsrec  =  record  
                          quarters,  
                          dimes,  
                          nickels,  
                          pennies:word;  它是个记录类型，相当于C里的结构题；pcoinsrec 是指向该记录的指针。

Answer 4

interface  
  type  
    pcoinsrec  =  ^tcoinsrec;  //定义结构体指针pcoinsrec
    tcoinsrec  =  record  //结构体tcoinsrec
      quarters,  
      dimes,  
      nickels,  
      pennies:word;  
    end;  
{$ifndef  pennieslib}  
function  penniestocoins(totpennies:word;coinsrec:pcoinsrec):word;stdcall;  
{$endif}