Haz una donación ahora. Goal amount for this year: 650 EUR, Received: 353 EUR (54%)
¡Ayúdanos a mantener el foro!
Haz una donación para pagar el servidor.

Resultados 1 al 2 de 2

Tema: Ayuda con Delphi

  • Compártelo
  • Herramientas
  • Visualizar
  1. #1

    Ayuda con Delphi

    Buenas!!!

    Estoy aprendiendo Delphi, na más llevo un par de días, y estoy tratando de pasar las cosas que tenía hecho en java a delphi.

    Con lo cual intetar hacer algo similar no consigue que me funcione esto:


    Código:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      end;
    
      TPersona = class
        textoPersona: string;
      public
        constructor Create();
        procedure mostrar();
    
      end;
    
      THombre = class(TPersona)
        textoHombre: string;
       public
        constructor Create();
        procedure mostrar();
      end;
    
      TMujer = class(TPersona)
        textoMujer: string;
      public
        constructor Create();
        procedure mostrar();
      end;
    
    var
      Form1: TForm1;
      hombre: THombre;
      mujer: TMujer;
      lista: array[1..20] of TPersona;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    
    
    lista[1]:= THombre.Create;
    
     lista[1].mostrar;(Aquí solo me deja usar los atributos y metodos de persona, no las del hombre...)
    
    
    end;
    
    
    //Metodos Persona
    
    constructor TPersona.Create();
    begin
      textoPersona:='Soy una persona';
    end;
    
    procedure TPersona.mostrar();
    begin
      ShowMessage('Func Persona');
    end;
    
    
    //Metodos Hombre
    
    constructor THombre.Create();
    begin
      inherited Create;
      textoHombre:='Soy un hombre';
    end;
    
    procedure THombre.mostrar();
    begin
     inherited mostrar();
      ShowMessage('Func Hombre');
    end;
    
    //Metodos Mujer
    
    constructor TMujer.Create();
    begin
      inherited Create;
      textoMujer:='Soy una mujer';
    end;
    
    procedure TMujer.mostrar();
    begin
     inherited mostrar();
      ShowMessage('Func Mujer');
    end;
    
    end.
    En java haría bien lo que yo quiero, nose en delphi lo que se debe hacer para conseguir eso..

    Gracias!!!

  2. #2
    Forer@ milenari@ Avatar de Johnnie
    Fecha de ingreso
    Feb 2007
    Ubicación
    EsPaCiO TiEmPo
    Mensajes
    1,494
    Poder
    27
    yo de delfhi no tengo mucha idea.... pero que es lo que realmente quieres hacer?=
    TeNeR PaNzA CeRvEcErA NuNcA EsTá De MáS. CoNtRa La SeQuIa CeRvEzA FrIa.

Información de tema

Usuarios viendo este tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •