Constructores

[FairyLady]

Hola. Saludos a todos. Soy nueva en el foro, pero creo que estoy en el sector correcto, disculpen si no. Tengo una duda con respecto a los constructores de delphi. Es necesario declararlos en cada clase? O pueden usarse los Default que heredan de Tobject?. ( O de ser necesario solo en determinados casos,¿ En cuales?).

Yo no declare constructores en ninguna clase, Solo en el programa principal. Algo de este modo.

Código Delphi [-]
Procedure blabla();
Var
  Vclase1: Tclase1;
Begin 
  Vclase1:= Tclase1.create;
  (mas codigo)
End;

Pero haciendo esto, no me dio acceso a los componentes ni funciones de la clase. (Estan todas declaradas como public).

No tira errores, solo una advertencia de que cree un objeto de la clase, que no se uso.

Si alguno puede responderme, se lo agradesco muchisimo!!!
Saludos

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

Hola y bienvenida a los foros.
Te recomiendo que revises nuestra Guía de estilo.

Para que el código se lea bien, lo mejor es usar TAG's.

En cuanto a tu pregunta, una vez creado el objeto de la clase Tclase1, deberías poder acceder a los métodos de esa clase sin problemas:

Código Delphi [-]
Procedure blabla();
Var
  Vclase1: Tclase1;
Begin 
  Vclase1:= Tclase1.create;

  VClase1.metodo1;
  VClase1.funcion1(1, 'casa');

  (más código)

End;

Estando metodo1 y funcion1 definidos en la clase Tclase1.

[FairyLady]

Con respecto a esa parte de la pregunta, sigo teniendo el mismo problema . Tengo todo bien definido en la clase. Sin constructores. y al querer usar el constructor default, me crea el objeto, pero no me deja acceder a ningun atributo ni metodo. Pido disculpas por lo del codigo, de ahora en mas usare los TAG's.

[ecfisa]

al querer usar el constructor default, me crea el objeto, pero no me deja acceder a ningun atributo ni metodo.

Hola.

No entiendo bién lo que te sucede, ¿ Te arroja algún mensaje de error ? ¿ Podrías poner (en líneas generales) el código donde declaras la clase y donde intentas usarla ?

Un saludo.

[FairyLady]

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

Código Delphi [-]
Type 

Tpaquete = class(TObject)
 Basico: real;
 Function SetTarifa():real;virtual;
 Function CalculaTarifa():real;virtual;Abstract;
end;

TPaqTerr = class(TPaquete)
 TarifaT: real;
 public
  Function Settarifa (): real; override;
 function Calculatarifa (): real; override;
 //constructor Create (eTarifa:Real); overload;
 end;

TPaqAereo = class (Tpaquete)
 TarifaA:real;
 function Settarifa(): real;override;
 function Calculatarifa():real;override;
End;

TpaqMaritimo =class (Tpaquete)
 TarifaM:real;
 function Settarifa():real;Override;
 function Calculatarifa():real;override;
End;

Esas son las declaraciones de clases y tipos. ( El constructor esta comentado ya que no estaba muy segura de como usarlo ni si era necesario).

Código Delphi [-]
Procedure TForm1.BtCalculaClick(Sender: TObject);
Var
Terrenal:Tobject;
begin

Terrenal:= Tpaqterr.create ();

Terrenal.   // aca es principalmente el problema, No accede a ningun atributo de la clase TPAQTERR. -(Tipo paquete terrestre)

Muchas gracias

[roman]

Terrenal debe sere declarado como TPaqterr o, en su defecto, debes hacer un moldeo:

Código Delphi [-]
TPaqterr(Terrenal)

// Saludos

[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.).

[ecfisa]

tengo una duda con respecto a los constructores de delphi. Es necesario declararlos en cada clase? O pueden usarse los Default que heredan de Tobject?.

Hola FairyLady.

Podés utilizar el constructor heredado o si necesitas inicializar algo en la creación de la instancia, podes definir el constructor para tu clase.
Pero siempre necesitarás crear una instancia de la clase antes de usarla.

Un ejemplo muy simple, si tenemos:

Código Delphi [-]
type
  TMiClase = class
  public
    a: Integer; 
  ...

var
  MClase: TMiClase;
begin
  MClase.a = 5; // error

  // lo correcto es
  MClase:= TMClase.Create;
  MClase.a:= 5;

Otro caso:

Código Delphi [-]
type
  TMiClase = class
  public
    a: Integer; 
    constructor Create(Value: Integer);
  ...

var
  MClase: TMiClase;
begin
  MClase:= TMiClase.Create; // error
  // lo correcto es
  MClase:= TMiClase.Create(6);

Para eso claro, debemos haber echo con anterioridad:

Código Delphi [-]
constructor TMClase.Create(Value: Integer);
begin
  a:= Value;
end;

Espero no haber sido muy enrredado...

Saludos.

[FairyLady]

Muy Buena informacion sobre los constructores! y muy clara. muchas gracias