Ver Mensaje Individual
  #1  
Antiguo 06-06-2011
mierda mierda is offline
Miembro
 
Registrado: may 2006
Posts: 129
Reputación: 18
mierda Va por buen camino
Creacion de una clase

Hola chavales, tengo la siguiente duda

¿que diferencia hay entre definir las variables con property o con funciones y procedures que ataquen a la propiedad? ¿Cual es mejor?

Código Delphi [-]
 
unit Unit2;
interface
type
Tcoche=class
private
// varaiables privadas
cocheMarca:string;
cocheRuedas:integer;
public
// funciones para la variable cocheRuedas
function getRuedas: integer;
procedure setruedas(const Value: integer);
// propiedad marca que guarda y lee de cocheMarca
property marca:string read cocheMarca write cocheMarca;
// propiedad ruedas que lee y guarda en cocheRuedas
property ruedas:integer read getRuedas write setruedas;
// constructor de la clase
constructor create(marcaP:string;ruedasP:integer);
end;
implementation
{ Tcoche }
constructor Tcoche.create(marcaP:string;ruedasP:integer);
begin
      cocheMarca := marcaP;
      cocheRuedas := ruedasP;
end;
function Tcoche.getRuedas: integer;
begin
     getRuedas := cocheRuedas;
end;
procedure Tcoche.setruedas(const Value: integer);
begin
     cocheRuedas := Value;
end;
end.

un saludo y muchas gracias!
Responder Con Cita