Ver Mensaje Individual
  #2  
Antiguo 11-08-2005
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 679
Reputación: 21
yusnerqui Va por buen camino
Hola

Primero que nada enviarte un fuerte abrazo, que hacía tiempo no te leía y ya se te estraña.

Con respecto a tu pregunta te diré que aunque no soy un maestro en el asunto trataré de ayudarte:

Te puedes crear una nueva unidad para tu clase:

Código Delphi [-]
 interface
 uses Classes;
Type
   TOrdenador = Class(TObject)
   Private
     FIp : String;
     FHostname:string;
     FRecursos:TStringList;
    FRcursos: TStringList;
    procedure SetHostname(const Value: String);
    procedure SetIp(const Value: String);
    procedure SetRcursos(const Value: TStringList);
   Public
     Property Ip : String Read FIp Write SetIp;
     Property Hostname : String Read FHostname Write SetHostname;
     Property Rcursos : TStringList Read FRcursos Write SetRcursos;
     Constructor Create;
     Destructor Destroy;override;
   end;
implementation
{ TOrdenador }
constructor TOrdenador.Create;
begin
   FRecursos := TStringList.Create;
end;
destructor TOrdenador.Destroy;
begin
  FRecursos.Free;
  inherited;
end;
procedure TOrdenador.SetHostname(const Value: String);
begin
  if FHostname <> Value then
    FHostname := Value;
end;
procedure TOrdenador.SetIp(const Value: String);
begin
  if FIp <> Value then
    FIp := Value;
end;
procedure TOrdenador.SetRcursos(const Value: TStringList);
begin
  FRcursos.Assign(Value);
end;
end.

Bueno también puedes declarar métodos públicos para tu clase, pero no los comentas, pero básicamente es así, claro que puedo estar equivocado, pero de ser así ya alguien se encargará de rectificarme.

Saludos
__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo

Responder Con Cita