Bueno una unidad con orientacion a objetos entre otras que hice..quiero que la corrijan.
La cree escribiendo..
property NombreAtributo
y luego el compilador genero el codigo de los setter colocandolos en "private"
unit UProducto; interface type Tproducto = class private Fcosto: Double; Fiva: double; Fprecio: Double; Fpedir: boolean; Fsubcategoria: string; Fcategoria: string; Fpreciob: Double; Fporcganancia: Double; Fprecioa: Double; Fidproducto: integer; Fnombre: string; Fmarca: string; Fganancia: Double; procedure Setcategoria(const Value: string); procedure Setcosto(const Value: Double); procedure Setganancia(const Value: Double); procedure Setidproducto(const Value: integer); procedure Setiva(const Value: double); procedure Setmarca(const Value: string); procedure Setnombre(const Value: string); procedure Setpedir(const Value: boolean); procedure Setporcganancia(const Value: Double); procedure Setprecio(const Value: Double); procedure Setprecioa(const Value: Double); procedure Setpreciob(const Value: Double); procedure Setsubcategoria(const Value: string); property idproducto:integer read Fidproducto write Setidproducto; property categoria:string read Fcategoria write Setcategoria; property subcategoria:string read Fsubcategoria write Setsubcategoria; property marca:string read Fmarca write Setmarca; property costo:Double read Fcosto write Setcosto; property precio:Double read Fprecio write Setprecio; property iva:double read Fiva write Setiva; property pedir:boolean read Fpedir write Setpedir; property nombre:string read Fnombre write Setnombre; property preciob:Double read Fpreciob write Setpreciob; property precioa:Double read Fprecioa write Setprecioa; property ganancia:Double read Fganancia write Setganancia; property porcganancia:Double read Fporcganancia write Setporcganancia; public constructor create(idproducto:integer;categoria:string;subcategoria:string;marca:string; costo:Double;precio:Double;iva:Double;pedir:Boolean;nombre:String;preciob:Double;precioa:double; ganancia:Double;porcganancia:Double); end; implementation { Tproducto } constructor Tproducto.create(idproducto: integer; categoria, subcategoria, marca: string; costo, precio, iva: Double; pedir: Boolean; nombre: String; preciob, precioa, ganancia, porcganancia: Double); begin Fidproducto:=idproducto; Fcategoria:=categoria; Fsubcategoria:=subcategoria; Fmarca:=marca; Fcosto:=costo; Fprecio:=precio; Fiva:=iva; Fpedir:=pedir; Fnombre:=nombre; Fpreciob:=preciob; Fprecioa:=precioa; Fganancia:=ganancia; Fporcganancia:=porcganancia; end; procedure Tproducto.Setcategoria(const Value: string); begin Fcategoria := Value; end; procedure Tproducto.Setcosto(const Value: Double); begin Fcosto := Value; end; procedure Tproducto.Setganancia(const Value: Double); begin Fganancia := Value; end; procedure Tproducto.Setidproducto(const Value: integer); begin Fidproducto := Value; end; procedure Tproducto.Setiva(const Value: double); begin Fiva := Value; end; procedure Tproducto.Setmarca(const Value: string); begin Fmarca := Value; end; procedure Tproducto.Setnombre(const Value: string); begin Fnombre := Value; end; procedure Tproducto.Setpedir(const Value: boolean); begin Fpedir := Value; end; procedure Tproducto.Setporcganancia(const Value: Double); begin Fporcganancia := Value; end; procedure Tproducto.Setprecio(const Value: Double); begin Fprecio := Value; end; procedure Tproducto.Setprecioa(const Value: Double); begin Fprecioa := Value; end; procedure Tproducto.Setpreciob(const Value: Double); begin Fpreciob := Value; end; procedure Tproducto.Setsubcategoria(const Value: string); begin Fsubcategoria := Value; end; end.
No genero los getter.
Y por ultimo programe la implementación del constructor..
Agradezco me corrijan