Constructores

[Neftali [Germán.Estévez]]

Empezado por FairyLady

No. Ningun mensaje de error. Solo que no me deja acceder a los atributos de la vble. Ahi va el codigo

Digamos que para poder acceder a los métodos del objeto este debe estar definido según la clase correcta; Es decir, si cambias la definición de la variable por esta otra, verás como sí te aparecen los métodos:

Código Delphi [-]
Var
  Terrenal:Tpaqterr;
begin
  Terrenal:= Tpaqterr.create ();
  Terrenal.    

  ..Ahora sí te aparecerán

En el caso, de que quieras o necesites definir la variable como TObject, pero luego la crees de una clase en particular, para acceder a los métodos necesitas hacer un CAST, que es lo que Román te ha mostrado en su mensaje:

Código Delphi [-]
Var
  Terrenal:TObject;
begin
  Terrenal:= Tpaqterr.create ();
  Tpaqterr(Terrenal).    

  ..Ahora sí te aparecerán

También puedes usar esto:

Código Delphi [-]
Var
  Terrenal:TObject;
begin
  Terrenal:= Tpaqterr.create ();
  (Terrenal as Tpaqterr).    

  ..Ahora sí te aparecerán

Con eso le decimos al compilador que aunque hemos definido la variable Terrenal de tipo TObject, la queremos utilizar como tipo Tpaqterr (puesto que la hemos creado utilizando esta última clase.).

[FairyLady]

Todo funcionando muy bien! Muchas gracias a los 4!
Ahora tengo otra duda. Utilizar un constructor nos libera de utilizar los metodos SetAtributoy GetAtributo?

[ecfisa]

Hola.

Utilizar un constructor nos libera de utilizar los metodos SetAtributo y GetAtributo?

Me parece que tenés una confusión, esos métodos, por el nombre, tienen pinta de ser usados para lectura y escritura de alguna propiedad. ¿ Como están declarados en la clase ?

Saludos.

[[Lepe]]

Empezado por FairyLady

Todo funcionando muy bien! Muchas gracias a los 4!
Ahora tengo otra duda. Utilizar un constructor nos libera de utilizar los metodos SetAtributoy GetAtributo?

Normalmente no.

Un caso típico de usar el constructor, es cuando proporcionas un valor por defecto a una propiedad:

Código Delphi [-]

TmiObjecto = class(TObject)
private
  Fmia: integer;
public
  constructor Create; override;
  property MiPropiedad:integer read Fmia write Fmia default 1;
end;

implementation

constructor TmiObjecto.Create;
begin
  Fmia := 1;
end;

Por defecto Delphi inicializará las variables de tipo integer a cero, si queremos que tenga un valor diferente, se suele hacer de esta forma y como ves, tiene poco que ver con los Get y Set. Ahora, al instanciar la clase, se inicializa a 1 la variable privada.

Además eso de "liberar de usar" creo no es apropiado, en realidad siempre tienes ventajas al usar el Get y Set porque puedes hacer operaciones adicionales a la simple asignación, de eso se trata....claro. Yo Normalmente empiezo con "read Fvar write Fvar" y al final siempre termino usando, al menos, el Set.

Saludos