Foros Club Delphi - Cómo modificar una instancia dentro de un procedimiento asociado a esta.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cómo modificar una instancia dentro de un procedimiento asociado a esta. (https://www.clubdelphi.com/foros/showthread.php?t=84852)

TecnoBestia

16-12-2013 19:37:29

Cómo modificar una instancia dentro de un procedimiento asociado a esta.

Hola foreros.

Tengo una duda que me trabado y no he podido encontrar nada al respecto. Supongo que para muchos de ustedes es algo muy sencillo. Por lo que les pido su ayuda.

Tengo una instancia que perteneces a una clase creada por mí denominada TParticula. Luego tengo un vector llamado VEnjambre lleno de instancias del tipo TParticula.

Para la clase TParticula se le programó un procedimiento que dependiendo del resultado modifica la instancia, sin embargo este cambio no se hace.

Veamoslo en Código:

Código:

       for i:=0 to Tamano_Del_Enjambre-1 do begin

         VEnjambre[i].AplicarBusquedaTabu;

         if VEnjambre[IndiceDeLaMejorParticulaDeLaHistoria].ValorInerciaEnMejorPosicion<VEnjambre[i].ValorInerciaEnMejorPosicion then begin

           IndiceDeLaMejorParticulaDeLaHistoria:=i;

         end;

       end;

Luego en el segundo paso del procedimiento anterior corresponde al sigueinte procedimiento.

Código:

procedure TParticula.AplicarBusquedaTabu();

var

  i,IteraBT:Integer;

begin

  

  IteraBT:=0;

  SetLength(Self.ListaTabu,2,TamaMaxListaTabu);

  while IteraBT<MaxIteraSinMejorasBT do

  begin

    IteraBT:=IteraBT+1;

    Self.BTCrearVecino(BTTamaVecindario);

    if Self.SeGeneroElVecino then begin

      Self:=VecinoParticula.Clon;                    //Aquí 1

      FreeAndNil(VecinoParticula);

      if Self.ValorDeLaInerciaActual<Self.ValorInerciaEnMejorPosicion then begin

        IteraBT:=0;

        Self.ValorInerciaEnMejorPosicion:=Self.ValorDeLaInerciaActual;            //Aquí 2

        Self.VCoordenadasMejorPosicion:=Copy(Self.VCoordenadasActual);      //Aquí 3

      end;

      



    end;

  end;

end;

Tanto en Aquí 1, 2 y 3 se hacen cambios a la instancia, sin embargo al finalizar dicho procedimiento no los cambios no se ven.

Es decir, valor que sale de procedimiento AplicarBusquedaTabu es el mismo que entró y los cambios que se hacen dentro del procedimiento no se aplican fuera.

Es como si el self fuera una copia de la instancia y no una referencia a la instancia dada.

Agradezco cualquier ayuda.

Saludos...

Ñuño Martínez

17-12-2013 18:01:52

Cita:

Empezado por TecnoBestia (Mensaje 470820)

Es como si el self fuera una copia de la instancia y no una referencia a la instancia dada.

No, SELF es una referencia al objeto que está asociado a la instancia en ejecución. No puede cambiarse.

Creo que deber revisar tus apuntes sobre Programación Orientada a Objetos.

TecnoBestia

17-12-2013 19:59:18

Hola, entiendo que self es una referencia a un objeto, pero no entiendo por que no puede cambiarse, en otros lugares he usado la instrucción

Código:

VecinoParticula:=VecinoAux9.Clon;

y también

Código:

VecinoAux9:=Self.Clon;

y no he tenido ningún problema siendo VecinoParticula y VecinoAux9 instancias de la misma clases, la función Clon lo que hace es crear una compia del objeto para que no sea una referencia.

El procedimiento correspondiente es:

Código:

function clsParticula.Clon():clsParticula;

var

i:Integer;                             {Esta función realiza un clon independiete, elimina el uso de punteros en las instancias}

begin

  Result:=clsParticula.Create;

  Result.VClasificacion:=Copy(Self.VClasificacion);

  Result.VCoordenadasActual:=Copy(Self.VCoordenadasActual);

  Result.VCoordenasPosicionAnterior:=Copy(Self.VCoordenasPosicionAnterior);

  Result.VCoordenadasMejorPosicion:=Copy(Self.VCoordenadasMejorPosicion);

  Result.VDistancias:=Copy(Self.VDistancias);

  Result.ValorDeLaInerciaActual:=Self.ValorDeLaInerciaActual;

  Result.ValorInerciaEnMejorPosicion:=Self.ValorInerciaEnMejorPosicion;

  Result.VCardinalidades:=Copy(Self.VCardinalidades);

  Result.VVelocidad:=Copy(Self.VVelocidad);

  //Tabu

  Result.OperaRealizadaVecino:=Self.OperaRealizadaVecino;

  Result.PosicionModificadaParaVecino:=Self.PosicionModificadaParaVecino;

  Result.PosicionAActualizarEnLT:=Self.PosicionAActualizarEnLT;



  SetLength(Result.ListaTabu,2,TamaMaxListaTabu);



  Result.ListaTabu[0]:=Copy(Self.ListaTabu[0]);

  Result.ListaTabu[1]:=Copy(Self.ListaTabu[1]);



  Result.TamaActualLT:=Self.TamaActualLT;

  Result.SeGeneroElVecino:=Self.SeGeneroElVecino;

end;

Donde result posee una copia del objeto independiente de la instancia general. Mi duda es ¿por qué no puedo cambiar el self pero si otras referencias de los objetos?, y más aún ¿cómo puedo solucionar el problema?

Saludos...

Ñuño Martínez

18-12-2013 14:12:11

Porque SELF no es una variable, sino una constante. Siempre es la referencia (puntero) al objeto del método que se está ejecutando en ese momento.

Cuando defines un método de una clase, como por ejemplo:

Código Delphi [-]  TMiClase = CLASS
  PUBLIC
    PROCEDURE Metodo (aVariable: STRING);
  END;

en realidad el compilador lo interpreta como si fuera así:

Código Delphi [-]  TMiClase = CLASS
  PUBLIC
    PROCEDURE Metodo (CONST Self: TMiOBjeto; aVariable: STRING);
  END;

Y cuando llamas al método:

Código Delphi [-]  MiObjeto.Metodo ('Hola');

El compilador lo interpreta como si fuera así:

Código Delphi [-]  TMiClase.Metodo (MiObjeto, 'Hola');

El caso de RESULT es diferente, ya que sí es una variable cuya posición de memoria se corresponde con la posición de pila donde el llamante tomará el valor devuelto por la función. En cierto modo, una definición como:

Código Delphi [-]  FUNCTION UnaFuncion (aValor: INTEGER): INTEGER;

Se interpreta como si fuera:

Código Delphi [-]  PROCEDURE UnaFuncion ( OUT RESULT: INTEGER; aValor: INTEGER);

y si fuera método de una clase...

Código Delphi [-]  PROCEDURE UnaFuncion (CONST SELF: TMiClase; OUT RESULT: INTEGER; aValor: INTEGER);

La franja horaria es GMT +2. Ahora son las 22:28:50.