Seleccionar Item de ComboBox

[georgejg]

Hola a Todos

otra ves yo por aqui.. mi inquitud es la siguiente:

estoy haciendo la siguiente consulta

Código Delphi [-]
 
BDMasdata.Query4.Close;
BDMasdata.Query4.SQL.Text:='select FECHA,EMPRESA,TIPO_REPORTE,
TOTALP from TABLA1 where FECHA =' + QuotedStr(DateToStr(Fecha.Date));
BDMasdata.Query4.Open;

Lo que necesito es que el resultado de la consulta me los muestre en difirentes componentes.

Código Delphi [-]
 
  em:= BDMasdata.Query4.Fields[1].AsString;
  tr:= BDMasdata.Query4.Fields[2].AsString;
  Pru:= BDMasdata.Query4.Fields[3].AsInteger;
 
  ComboBox1.Text:= em;
  ComboBox2.Text:= tr;
  Edit1.Text:= IntToStr(Pru);

Con la consulta anterior e cargado el "TOTALP" en un Edit.

ahora con los comboBox el detalle es que ya tiene una lista de items antes creados es decir necesito que deacuerdo al resultado de la consulta me seleccione una opcion de la lista.

ejemplo:

si el "TIPO_REPORTE" es ARCHIVO me seleccione ese mismo de la lista.

no se si me esplico bien, les agradeceria una pronta respuesta.

saludos.

[[poliburro]]

Código Delphi [-]
 
//Estableciendo que combo es de tipo DropDownList para evitar que
//modifiquen las cadenas predefinidas
 
 
  ComboBox1.ItemIndex :=  ComboBox1.Items.IndexOf(em);

[georgejg]

Solucionado...

Funciono muy bien gracias poliburro.

Otra pregunta de rapides como saber cuando un combo a seleccionado algun item es decir.

despues de lo anterior lo que quisiera es que si despues de la consulta se selecciono algun item del combo este quede con la propiedad enable en False si no que enable = True

Código Delphi [-]
if ComboBox1 =????? then 
begin 
   ComboBox1.Enable:= False;
end
else begin 
   ComboBox1.Enable:= True;
end;

les agradesco una pronta respuesta
saludos

[keyboy]

Si no hay nada seleccionado, entonces ComboBox.ItemIndex es igual a -1 de manera que puedes poner:

Código Delphi [-]
if ComboBox1.ItemIndex <> -1 then 
begin 
   ComboBox1.Enable:= False;
end
else begin 
   ComboBox1.Enable:= True;
end;

Nota, sin embargo, que ésa es una forma muy rebuscada de asignar un valor booleano. Es mucho mas prolijo así:

Código Delphi [-]
ComboBox1.Enabled := (ComboBox1.ItemIndex = -1);

Lo que hay dentor de los paréntesis es una comparación de dos valores, y el resultado de una comparación es un valor booleano, que es lo que finalmente asignas a la propiedad Enabled.

Bye

[georgejg]

para hacer lo anterior se opto por esta opcion:

Código Delphi [-]
  
if (comboBox1.ItemIndex <> -1) then begin
      comboBox1.Enabled:= False;
  end
 else
  begin
    comboBox1.Enabled:= True;
  end;

hasta una proxima oprtunidad

bye