Ver Mensaje Individual
  #5  
Antiguo 28-07-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
ya que nos metemos en materia, ¿realmente se neceista ese parámetro "N" para crear el Form ? Yo diría que no, porque un TForm se construye sin necesidad de ese parámetro, entonces, lo que "se debería hacer" es crear una propiedad a tal efecto:
Código Delphi [-]
Type TmiForm = class (Tform);
 private
    FNumero:integer;
    procedure SetNumero(Value:Integer);
    function GetNumero:integer;
 public
   constructor Create(AOwner:Tcomponent);
   property MiNumero : integer read GetNumero write SetNumero;
 end;

implementation

procedure TmiForm.SetNumero(Value:Integer);
begin
  if FNumero <> Value then
  begin 
     FNumero := Value; // variable privada donde guardamos el valor.
    // hacer otras cosas cuando el usuario haga: miform.MiNumero := 3;
  end;
end;     


function TmiForm.GetNumero:integer;
begin
  Result := FNumero; 
  // resultado cuando el usuario diga ShowMessage(inttostr(miform.MiNumero)); 
// es decir, al leer la propiedad.
end;

Las normas de OOP es lo que dice: "si no se requiere estrictamente para crear el objeto, no utilices en el constructor".

Ñuño: Creo recordar que si no pone overload, no compilará. Si lo pone advierte de ese detalle, por tanto solo queda deshabilitar las advertencias, ya que sabemos lo que hacemos

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 28-07-2008 a las 12:57:06.
Responder Con Cita