Ver Mensaje Individual
  #4  
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

Nada era un problema con la palabra Recurso que se declaró mal por accidente, a continuación te pongo el código arreglado:

Código Delphi [-]
 
interface
 uses Classes;
Type
   TOrdenador = Class(TObject)
   Private
     FIp : String;
     FHostname:string;
     FRecursos:TStringList;
     procedure SetHostname(const Value: String);
     procedure SetIp(const Value: String);
     procedure SetRecursos(const Value: TStringList);
   Public
     Property Ip : String Read FIp Write SetIp;
     Property Hostname : String Read FHostname Write SetHostname;
     Property Recursos : TStringList Read FRecursos Write SetRecursos;
     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.SetRecursos(const Value: TStringList);
begin
   FRecursos.Assign(Value)
end;
end.
Bueno espero te ayude, Buena suerte AMIGO

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

Para que puedas llegar mejor lee la Guia de Estilo


Última edición por yusnerqui fecha: 11-08-2005 a las 22:53:31.
Responder Con Cita