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>

Categorías:Programación

Insertar Archivos o Imagenes en MySQL

28 diciembre 2009 Deja un comentario

// 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.

Leer más…

Categorías:Programación