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
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