Inicio > Programación > Asignar y Encontrar el valor de un ComboBox

Asignar y Encontrar el valor de un ComboBox


Esto sirve para trabarjar tanto con combobox como con listbox

Se basa en asignar un indice(único)  de tipo integer al combo en su campo object, luego buscar por este campo y de no encontrar nada devolver cero.

<code>
function GetCombo(cb: TComboBox): Integer;
var
Aux01: Integer;
begin
Aux01 := 0;
try
Aux01 := Integer(cb.Items.Objects[cb.ItemIndex]);
except
Aux01 := 0;
end;
Result := Aux01;
end;

function SetCombo(cb: TLMDComboBox; Valor: Integer): Integer;
var
Aux01: Integer;
begin
Aux01 := 0;
try
Aux01 := cb.Items.IndexOfObject(TObject(Valor));
except
Aux01 := 0;
end;
Result := Aux01;
end;
</code>

Anuncios
Categorías:Programación
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: