Hola
Veis, no dolió, ahora si lo capte, era solo de tomarme la pastilla del Altz y ya.
Algún día entenderé esto de las funciones.
Gracias, ya esta resulto, la próxima vez pregunto mejor.
Para que veáis como quedo, (Use la función de Dec.):
Código Delphi
[-]
procedure TFOrdenProdAcrilico.CBLaminaChange(Sender: TObject);
var
color: string;
begin
Color:= GetLaminaType(CBLamina.Text);
showmessage(color);
QTemp.Close;
QTemp.SQL.Text := 'SELECT Materiales.Disponible FROM Materiales WHERE Materiales.Descripcion = isp';
QTemp.Parameters[0].Value:= CBLamina.Text;
QTemp.Active := True;
Dispon.Text:= QTemp.Fields[0].Text;
end;
Saludos