original code:     unit Unit3;    interface    uses classes,porms,DB,DBTables,Nb32Types,Dialogs,Controls,sysUtils,NBMapsession,     proSave,ModelUtil,MeasTypes,progress;    type   TcusType = (cusLN{individual customer profile}, cusEX{exceptional profile},cusOther);        TModelProf = class       Proflist:TprofileList;    implementation    end.    Q: 1. TcusType = (cusLN{individual customer profile}, cusEX{exceptional profile},cusOther); what is the meaning of this expression? why no class is placed after = (TcusType = class(cusLN{individual customer profile}, cusEX{exceptional profile},cusOther);    Q2.  TModelProf = class why no ,e.g. Tobject,Tfrom, after the class?    thanx a lot!              

1.TcusType 是 Enumerated type, 所以後面沒有 class 關鍵字 表示 TCusType 的值可能是 cusLn 或是 cusEx 或是 cusOther 任何一種 其它像是 TWindowState / TPosition 等也是 可以參考這篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=52123 2.TModelProf = class 寫法等同於 TModelProf = class(TObject) 表示 TModelProf 是繼承自 TObject