Archivo

Archive for 1 enero 2010

Asignar y Encontrar el valor de un ComboBox

1 enero 2010 Deja un comentario

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