lugabame,
Cita:
Empezado por lugabame
...alguien me podría brindar un ejemplo donde una clase herede atributos de otra clase...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Math, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
TMatBas = class
public
MsgUser : String;
function SumNum(N1, N2 : Double) : Double;
function SubNum(N1, N2 : Double) : Double;
function MulNum(N1, N2 : Double) : Double;
function DivNum(N1, N2 : Double) : Double;
end;
TMatAdv = class(TMatBas)
public
function SinNum(N1 : Double) : Double;
function CosNum(N1 : Double) : Double;
function TanNum(N1 : Double) : Double;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TMatBas.SumNum(N1, N2: Double): Double;
begin
Result := N1 + N2;
end;
function TMatBas.SubNum(N1, N2: Double): Double;
begin
Result := N1 - N2;
end;
function TMatBas.MulNum(N1, N2: Double): Double;
begin
Result := N1 * N2;
end;
function TMatBas.DivNum(N1, N2: Double): Double;
begin
Result := N1 / N2;
end;
function TMatAdv.SinNum(N1: Double): Double;
begin
Result := Sin(N1);
end;
function TMatAdv.CosNum(N1: Double): Double;
begin
Result := Cos(N1);
end;
function TMatAdv.TanNum(N1: Double): Double;
begin
Result := Tan(N1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
N1, N2 : Double;
M : TMatAdv;
begin
M := TMatAdv.Create;
N1 := StrToIntDef(Edit1.Text,0);
N2 := StrToIntDef(Edit2.Text,0);
M.MsgUser := 'Ejemplo de Cálculo de Funciones Matemáticas por Medio de Herencia';
ShowMessage(M.MsgUser);
ShowMessage(Format('N1 + N2 = %n',[M.SumNum(N1,N2)]));
ShowMessage(Format('N1 - N2 = %n',[M.SubNum(N1,N2)]));
ShowMessage(Format('N1 * N2 = %n',[M.MulNum(N1,N2)]));
ShowMessage(Format('N1 / N2 = %n',[M.DivNum(N1,N2)]));
ShowMessage(Format('Sin(N1) = %n',[M.SinNum(N1)]));
ShowMessage(Format('Cos(N1) = %n',[M.CosNum(N1)]));
ShowMessage(Format('Tan(N1) = %n',[M.TanNum(N1)]));
M.Free;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
ejemplifica la herencia de clases por medio de funciones matemáticas.
Revisa esta información:
Espero sea útil
Nelson.