Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-10-2012
TecnoBestia TecnoBestia is offline
Miembro
 
Registrado: jun 2010
Posts: 35
Poder: 0
TecnoBestia Va por buen camino
¿Cómo hacer referencia a una clases desde otra que se encuentra dentro de la primera?

Hola a todos.

Tengo una duda, que posiblemente sea fácil para muchos de ustedes pero que me ha generado algunos dolores de cabeza ya que no he podido encontrar información al respecto. De hecho no sé si sea posible hacer lo que quiero.

Tengo dos clases definidas como sigue:

Código Delphi [-]

clsHormiga=class(TObject) 
  private
    function DistanciaAlCudrado(k_Individuo:Integer; k_CG:Integer)ouble;
  protected
  public

    ListaDeNodosAClasificar:VectorINT;                           

    MatrizCG:MatrizIR;                                         
                                                             
    VCardinalidades:VectorINT;                             

    VClasificacion:VectorINT;                                

    ValorDeLaInerciaActualouble;





    {Definición de procedimientos y funciones}

    procedure IniciarCG;
    procedure CamineYClasifique(NumeroNodosPorClasificar:Integer);
    procedure CalcularCG_dada_Clasificacion;
    procedure DeterminarVClasificacionYInercia;
    procedure CalcularInercia_dados_CG_y_clasificacion;
    procedure Intesificar_Rastro_Feromona;

  published
  end;

  //*******************************************************************************************
  //############################    Objeto clsColonia  ########################################
  //*******************************************************************************************
  clsColonia=class(TObject)
  private
  protected
  public
    
    Matriz_FeromonaIndi_CG:MatrizIR;        

    MejorInerciaDeLaHistoriaouble;         

    MejorHormiga:clsHormiga;                 

    VectorDeHormigas:array of clsHormiga;  // Note que en este paso, se define un vector de la otra clases.   

    Cantidad_de_Hormiga:Integer;              

    Matriz_FeromonaAux:MatrizIR;              


    constructor Create(NumHormigas:Integer);
    procedure Actualizar_el_rastro_de_la_feromona;
    procedure ContruirClasificacion();

  published
  end;

En la primera clases clsHormiga hay un procedimiento que se llama CalcularCG_dada_Clasificacion; el cual debe usar los datos y modificar la matriz Matriz_FeromonaIndi_CG
que está en la clase clsColonia. Mi pregunta es ¿Cómo se puede hacer referencia a dicha matriz desde dentro de la clases clsHormiga?

Nota:

Código Delphi [-]
type
  VectorIR=array of Double;    //Tipo de Vector de Reales
  VectorINT=array of Integer;  //Tipo Vector de Enteros
  MatrizIR=array of VectorIR;  //Tipo Matriz de reales, para la Tabla de Datos
  MatrizINT=array of VectorINT; //Tipo de matriz de enteros.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como hacer referencia a un query dentro de otro query? JuanBCT SQL 2 05-09-2006 18:35:25
Como ejecutar una aplicacion de delphi dentro de otra? Luis Alberto Varios 2 30-11-2005 00:31:39
¿Cómo puedo saber desde mi aplicación cuándo se abre por primera vez? nuri Varios 7 21-07-2005 14:07:51
Como puedo arrastrar una imagen y soltarla dentro de otra maravert API de Windows 3 12-09-2004 17:27:28
¿Como colocar una imagen dentro de otra? astur_racing Gráficos 3 12-08-2004 20:26:56


La franja horaria es GMT +2. Ahora son las 01:43:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi