Cita:
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.