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
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
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;
persona.free;
end;
end.