Clases derivadas

[kolo toure]

Hola, necesito que me ayuden. Para el siguiente ejemplo, podrian decirme como implementar el constructor de tal forma de inicialize los datos de la clase padre (Persona) y la clase derivada (Estudiante). Y tambien el codigo para instanciar la clase derivada (Estudiante).

Gracias por adelantado.

EJEMPLO

Código Delphi [-]
 
Persona = Class {Clase Padre}
 Protected 
  Nom,Ape: string;
  Edad: integer;
 Public
 constructor Init (N,A:string; E:integer);
end;
 
Estudiante = Class (Persona) {Clase derivada}
 Protected
  Esc: string;
 Public
  constructor InitE (N,A,ES:string; E:integer); 
end;

[roman]

Código Delphi [-]
constructor Estudiante.InitE (N,A,ES:string; E:integer);
begin
  Init(N, A, E);

  {
    código propio de Estudiante
  }
end;

Código Delphi [-]
var
  est: Estudiante;

begin
  est := Estudiante.InitE('valor N', 'valor A', 'valor ES', valorE);
end;

// Saludos

[roman]

Por cierto, me da la impresión de que editaste tu mensaje para darle formato. Si en lugar de usar la etiqueta [code] usas la etiqueta [delphi] el código se coloreará de manera automática.

// Saludos

[kolo toure]

Muchas gracias, roman.