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>

Anuncio publicitario

Insertar Archivos o Imagenes en MySQL

// Debe definir un campo tipo longblob en una tabla

//El ejemplo utiliza un TADOQuery, también se puede usar dbxpress

//TIP:  Puede definir un campo adicional, tipo varchar(5) para guardar la extension del archivo. Que debe ser asignada en caso de necesitar restaurar el archivo desde la base de datos al disco duro.