eco建模对象视图中：在一个类的过程中运用建立另一个相关联的类并处理

从blog.org的我的原博客中迁入

发表时间：2006-10-7 20:55:01

备忘

procedure salepaper.recivelefttp; //salepaper为一个类
var alefttp:lefttp; //lefttp为salepaper的一对多的关联类
I: Integer;
xssrecord:ssrecord; //ssrecord为salepaper的一对多的关联类
begin
for I := 0 to self.ssrecords.count - 1 do
begin
xssrecord:=ssrecords[i];
alefttp:=lefttp.Create(self.AsIObject.ServiceProvider);
alefttp.mustreturn:=20;
alefttp.quantity:=30;
alefttp.salepaper:=self;
alefttp.tcategory:=xssrecord.waterlx.tcategory;
alefttp.kh:=self.kh;
end;

end;