Problema con constructor..

[ecfisa]

Hola linuxtin.

Proba de este modo:

Código Delphi [-]
unit uPersona;

interface

uses SysUtils, Classes;

type
  TPersona=Class
   private
    idPersona:string;
    FApellido:string;
    FNombre:string;
    //...
   public
    constructor Create(Apellido:string; Nombre:string);
    //... 
   published
    property Apellido: string read FApellido write FApellido;
    property Nombre: string read FNombre write FNombre;
    //...
  end;

implementation

constructor TPersona.Create(Apellido: string; Nombre: string);
begin
  FApellido:= Apellido;
  FNombre:= Nombre;
end;

//...

end.

Código Delphi [-]
...
implementation

uses uPersona;

procedure TForm1.Button1Click(Sender: TObject);
var
  Persona: TPersona;
begin
  Persona:= TPersona.Create('TRUENO','PEPE');
  ShowMessage(Persona.Nombre+' '+Persona.Apellido);
end;

Saludos.

[linuxtin]

Empezado por ecfisa

Hola linuxtin.

Proba de este modo:

Código Delphi [-]
unit uPersona;

interface

uses SysUtils, Classes;

type
  TPersona=Class
   private
    idPersona:string;
    FApellido:string;
    FNombre:string;
    //...
   public
    constructor Create(Apellido:string; Nombre:string);
    //... 
   published
    property Apellido: string read FApellido write FApellido;
    property Nombre: string read FNombre write FNombre;
    //...
  end;

implementation

constructor TPersona.Create(Apellido: string; Nombre: string);
begin
  FApellido:= Apellido;
  FNombre:= Nombre;
end;

//...

end.

Código Delphi [-]
...
implementation

uses uPersona;

procedure TForm1.Button1Click(Sender: TObject);
var
  Persona: TPersona;
begin
  Persona:= TPersona.Create('TRUENO','PEPE');
  ShowMessage(Persona.Nombre+' '+Persona.Apellido);
end;

Saludos.

Gracias chicos!! Efectivamente era eso, pensé que estaba mal declarado algo.

Como ven declarada la clase? Algo que esta mal?

Gracias !!

[ecfisa]

Empezado por linuxtin

Como ven declarada la clase? Algo que esta mal?

Hola.

No... Pero podrías agregar algunos detalles a efectos de optimizar el ingreso de los valores:

Código Delphi [-]
...
type
  TPersona=Class
   private
    idPersona:string;
    FApellido:string;
    FNombre:string;
    //...
    function GuardarApellido: Boolean;
    function GuardarNombre: Boolean;
    procedure SetApellido(const Value: string);
    procedure SetNombre(const Value: string);
    //
   public
    constructor Create(aApellido:string; aNombre:string);
    //...
   published
    property Apellido: string read FApellido write SetApellido stored GuardarApellido;
    property Nombre: string read FNombre write SetNombre stored GuardarNombre;
    //...
  end;

implementation

constructor TPersona.Create(aApellido: string; aNombre: string);
begin
  Apellido:= aApellido;
  Nombre:= aNombre;
end;

function TPersona.GuardarApellido: Boolean;
begin
  Result:= FApellido <> '';
end;

function TPersona.GuardarNombre: Boolean;
begin
  Result:= FApellido <> '';
end;

procedure TPersona.SetApellido(const Value: string);
begin
  if Value <> FApellido then
    FApellido:= Value;
end;

procedure TPersona.SetNombre(const Value: string);
begin
  if Value <> FNombre then
    FNombre:= Value;
end;
...

Saludos.