Ver Mensaje Individual
  #11  
Antiguo 06-11-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Reputación: 21
santiago14 Va por buen camino
Question

Siguiendo con el tema de los combos...
Cuando quiero recuperar el ItemIndex de uno a través del texto que está en .text hago:
Código Delphi [-]
 indice_combo:=combo1.items.IndexOf('hola');
Ahora bien, tengo datos en el Object de este combo, el cual se asocia con el combo a través de justamente el itemIndex.
¿Cómo hago para recuperar el índice asociado, en este caso al objeto, teniendo a la mano el dato que está dentro del object?

Yo hice algo, pero quisiera que lo vean:
Código Delphi [-]
function obtener_ItemIndex_segun_codigo(codigo:string; TS: TStrings):integer ;
var
  i: Integer;
  objeto:string;
begin
  Result:=-1;
  for i := (TS.Count - 1) downto 0 do
  begin
    objeto:=string(ts[i]);
    if codigo = objeto then
    begin
      Result:=i;
    end;
  end;
end;

Y se invoca:
Código Delphi [-]
indice:=obtener_ItemIndex_segun_codigo('ES001', cbxTipoSolicitud.Items);

¿Estoy mas o menos encaminado o no?

Gracias.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita