这个类怎样写(50分)

对象：物料
有如下属性：
编号
单位
名称描述
。。。
再定义一个以上属性的指针。
再有一过程。来访问该物料。

提前

TMateriel=class
private:
FSerialnumber:string;
FCom:string;
FDis:string;
...
public:
procedure SetSerialnumber(Value:string);
procedure SetCom(Value:string);
procedure SetDis(Value:string);
property Serialnumber:string read FSerialnumber write SetSerialnumber;
property Com:string read FCom write SetCom;
property Dis:string read FDis write SetDis;
........

end;
......

我想通过指针来访问该 ITEM。再麻烦。

PMateriel = ^TMateriel

TMateriel=class
private:
FSerialnumber:string;
FCom:string;
FDis:string;
...
public:
procedure SetSerialnumber(Value:string);
procedure SetCom(Value:string);
procedure SetDis(Value:string);
property Serialnumber:string read FSerialnumber write SetSerialnumber;
property Com:string read FCom write SetCom;
property Dis:string read FDis write SetDis;
........

end;

PMateriel = ^TMateriel
呵呵,似乎有点不劳而获.
你若有多项数据,还可以加上TLIST类.

type TMaterialData=class(TMaterial)
private
DataList:TList;
function GetItems(ItemIndex: integer): TMaterial;
procedure SetItems(ItemIndex: integer
const Value: ObjList);
public
property Items[ItemIndex:integer]:TMaterial read GetItems write SetItems;
end;

agree with zhangkan

干嘛要建立那几个过程，有必要吗？

TMateriel=class
private:
FSerialnumber,
FCom,
FDis:string;
...
public:
property Serialnumber:string read FSerialnumber write FSerialnumber
property Com:string read FCom write FCom
property Dis:string read FDis write FDis
........

end;
这样不是更简单些吗？只是写几个字符串而已。

最近没有条件上　网了。

over