Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   No mostrar un Ítem en especifico dentro de un Combobox (https://www.clubdelphi.com/foros/showthread.php?t=83404)

feliz-58 14-06-2013 17:23:31

No mostrar un Ítem en especifico dentro de un Combobox
 
Saludos amigos.

Lo que pasa es lo siguiente: tengo un combobox, su trabajo es obtener la lista de ítem del nombre de las tablas que están en una base de datos, los obtengo con el siguiente código:

Código Delphi [-]
 procedure Templeados.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Style := csDropDownList;
  with ADOConnection1 do
  begin
    Connected := True;
    GetTableNames(ComboBox1.Items);
  end;
  ComboBox1.ItemIndex := 0;
end;

Como ven esta en el FormCreate.

Lo que quiero hacer es que en la base de datos tengo una tabla que se llama "Tablaprincipal" como hago para que aparezcan todas las otras tablas menos esa.

Gracias de antemano. :)

ecfisa 14-06-2013 17:31:46

Hola feliz-58.

Código Delphi [-]
procedure Templeados.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Style := csDropDownList;
  with ADOConnection1 do
  begin
    Connected := True;
    GetTableNames(ComboBox1.Items);
  end;
  ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('Tablaprincipal'));
  ComboBox1.ItemIndex := 0;
end;

Saludos. :)

feliz-58 14-06-2013 17:55:59

Cita:

Empezado por ecfisa (Mensaje 462260)
Hola feliz-58.

Código Delphi [-]
procedure Templeados.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Style := csDropDownList;
  with ADOConnection1 do
  begin
    Connected := True;
    GetTableNames(ComboBox1.Items);
  end;
  ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('Tablaprincipal'));
  ComboBox1.ItemIndex := 0;
end;

Saludos. :)

Excelente Gracias :);)


La franja horaria es GMT +2. Ahora son las 21:28:19.

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