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