Club Delphi  
    Paypal   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
  #2  
Antiguo 20-11-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Snaked.

Te soy sincero, no sé si termino de entender el planteo de tu problema. Pero por lo que creo haber interpretado, podrías prescindir del arreglo y almacenar tu estructura en el combo eliminándo el ítem y datos directamente desde él.

Ejemplo:
Código PHP:
//...
#include <ctime>

const OBJECTS_TYPE 4// Planet, Station, Route, Asteroids

struct stMapp {
  
String Nombre_Sector;
  
int objetos;
  
int tipo_objeto;
  
//...
} *mapp;

// Cargar struct de "demo" en el ComboBox
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  
String objType[4] = { "Planet""Station""Route""Asteroids" };

  
srandtime(NULL) );
  
ComboBox1->Items->Clear();

  for ( 
int i 030i++ ) {
    
mapp = new stMapp;
    
mapp->Nombre_Sector = (String)"Sector " rand()%30;
    
mapp->objetos rand() % 15;
    
mapp->tipo_objeto rand() % OBJECTS_TYPE ;
    
String s1 mapp->Nombre_Sector String": " );
    
ComboBox1->AddItem(s1 objType[rand()%4], (TObject*)mapp );
  }
  
ComboBox1->Sorted true;
  
ComboBox1->ItemIndex 0;
}

// Borrar item seleccionado
void __fastcall TForm1::btnDeleteClick(TObject *Sender)
{
  if (
ComboBox1->ItemIndex != -)
    
ComboBox1->Items->Delete(ComboBox1->ItemIndex);
}

// Mostrar datos struct de item seleccionado
void __fastcall TForm1::btnShowClick(TObject *Sender)
{
  
stMappmp = (stMapp*) ComboBox1->Items->Objects[ComboBox1->ItemIndex];
  
Memo1->Lines->Add(mp->Nombre_Sector);
  
Memo1->Lines->Add(mp->objetos);
  
Memo1->Lines->Add(mp->tipo_objeto);
}

//...

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  
delete mapp;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
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
Estructura .pak JORGE13 Tablas planas 3 17-12-2010 14:13:15
Estructura BD mjjj SQL 12 14-12-2009 13:12:34
Imprimir Estructura DBF's izar Tablas planas 1 14-11-2008 15:33:27
Estructura de un CD david duarte Varios 4 27-10-2005 17:48:50
Actualizar estructura Garada Firebird e Interbase 2 15-10-2004 08:34:40


La franja horaria es GMT +2. Ahora son las 03:19:02.


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