Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #15  
Antiguo 04-09-2014
Yugo Yugo is offline
Miembro
NULL
 
Registrado: jul 2014
Posts: 25
Poder: 0
Yugo Va por buen camino
Hola chicos!! después de hacer varias pruebas, gracias a vuestra ayuda he podido conseguir lo que buscaba en un principio con el siguiente código situado en el evento OnDataChange del TDataSource2:

Código:
 for(int x = 1; x <= 13; x++)
 {
    Query2->Close();
    Query2->SQL->Clear();
    Query2->SQL->Add("SELECT T1.NOMBRE");
    Query2->SQL->Add("FROM TABLA1 T1 JOIN TABLA2 T2 ON T2.ID = :PID AND");
    //(T1.ID1 = T2.IDx AND T1.RE1 = T2.REx)
    Query2->SQL->Add("(T1.ID1 = T2.ID"+IntToStr(x)+" AND T1.RE1 = T2.RE"+IntToStr(x)+")"); 
    Query2->SQL->Add("ORDER BY Nombre");
    Query2->ParamByName("PID")->AsInteger = Query1->FieldByName("ID")->AsInteger;
    Query2->Open();

    if(!Query2->FieldByName("Nombre")->AsString.IsEmpty())  //Si la consulta devuelve un resultado
   {
     //aquí quiero cambiar la propiedad Caption del TLabel que corresponde a Label[x] ya previamente situado
     //en el Form.
   }
   else
   {
     //No hacemos nada. No modificar la propiedad Caption que previamente tiene el TLabel nº [x]
   }

 }
Mi duda está en cómo hacer referencia a cada objeto TLabel situado en el Form para modificar su propiedad Caption dentro del bucle for, donde el índice de cada etiqueta corresponde con la vble. x de dicho bucle, es decir,
Labelx ..... [Label1..Label13].

Gracias de nuevo.
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
Migrar version BCB6 Toni C++ Builder 6 20-10-2014 14:44:32
TurboPower Systool bcb6 eldonfsr C++ Builder 0 15-01-2008 04:11:35
Coincidencia?? vtdeleon Debates 2 28-04-2006 13:43:17
Exportación de datos de Excel a Tablas Paradox Mone Conexión con bases de datos 1 31-10-2005 21:15:40
Como buscar en una tabla Paradox ? gregorio Tablas planas 2 25-04-2005 18:54:29


La franja horaria es GMT +2. Ahora son las 08:41:24.


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