Ver Mensaje Individual
  #2  
Antiguo 21-06-2023
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 933
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Talking

Estimado amigo no indica cual es el error...pero como diría un maestro del foro...

Me acaba de llegar mi bola de cristal y creo que su problema puede ser este...

Como consejo escriba con las etiquetas adecuadas el código...
Código Delphi [-]
unit Unit22;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
{TPersona = class (TForm)}
TPersona = class
private
  FCedula: string;
  FNombre: string;
  FNumeroSeguridadSocial: string;
  FDireccion: string;
  FFechaNacimiento: TDateTime;
public
  constructor Create(const ACedula, ANombre, ANumSegSocial, ADireccion: string; AFechaNacimiento: TDateTime);
  procedure MostrarInformacion;
end;

TFormMain = class(TForm)
lblCedula: TLabel;
lblNombre: TLabel;
lblNumSegSocial: TLabel;
lblDireccion: TLabel;
lblFechaNacimiento: TLabel;
edtCedula: TEdit;
edtNombre: TEdit;
edtNumSegSocial: TEdit;
edtDireccion: TEdit;
edtFechaNacimiento: TEdit;
btnMostrarInfo: TButton;
procedure btnMostrarInfoClick(Sender: TObject);
private
persona: TPersona;
public
{ Public declarations }
end;

var
FormMain: TFormMain;

implementation

{$R *.dfm}

constructor TPersona.Create(const ACedula, ANombre, ANumSegSocial, ADireccion: string; AFechaNacimiento: TDateTime);
begin
FCedula := ACedula;
FNombre := ANombre;
FNumeroSeguridadSocial := ANumSegSocial;
FDireccion := ADireccion;
FFechaNacimiento := AFechaNacimiento;
end;

procedure TPersona.MostrarInformacion;
begin
Writeln('Cédula:', FCedula);
Writeln('Nombre:', FNombre);
Writeln('Número de Seguridad Social:', FNumeroSeguridadSocial);
Writeln('Dirección:', FDireccion);
Writeln('Fecha de Nacimiento:', DateToStr(FFechaNacimiento));
end;

procedure TFormMain.btnMostrarInfoClick(Sender: TObject);
var

cedula, nombre, numSegSocial, direccion: string;
fechaNacimiento: TDateTime;
begin
cedula := edtCedula.Text;
nombre := edtNombre.Text;
numSegSocial := edtNumSegSocial.Text;
direccion := edtDireccion.Text;
fechaNacimiento := StrToDate(edtFechaNacimiento.Text);

persona := TPersona.Create(cedula, nombre, numSegSocial, direccion, fechaNacimiento);
persona.MostrarInformacion;
//No olvidar liberar la instancia
persona.free;
end;

end.
Responder Con Cita