在变量var之前定义~ type data=record{记录类型} x2:longint; x1:char; .... end; 然后 var c:data; 就是这么简单; 调用的时候就比如 c.x2:=1; 就是这样~~如果还不懂,可以继续问我