Ver Mensaje Individual
  #2  
Antiguo 09-03-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Al método create no se le debe pasar parámetros, solamente aquel que necesite para crearse el objeto. Ese valor "par" lo puedes incluir como una propiedad del componente..

Precisamente la comprobación de si par es mayor que cero, lo debería hacer el programa principal, no tu clase.

Respecto a tu duda, creo que no existe nada, porque estas "saltándote" la filosofía POO.

Edito:
Código Delphi [-]
type
  EmyClass = class (Exception);

TmyClass = Class(TObject)
private 
  Fpar:integer;
  procedure SetPar(Value:integer);
public
  property Par :integer read Fpar write SetPar
end;

...
procedure TmyClass.SetPar(Value:integer);
begin
  if Value < 0 then
    raise emyClass.CreateFmt('El valor %d debe ser mayor que cero',[Value]);
  else
  begin 
    Fpar := Value;
   ....
  end;
end;
Código Delphi [-]

  myClass = TmyClass.Create;
try
  myclass.par := -1;
except
   on E :EmyClass then
     Freeandnil(myclass);
end;
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: 09-03-2007 a las 18:28:49.
Responder Con Cita