[[Delphius]]

Perdón amigo, me olvidé de indicar que TLaminaInfo es un tipo de dato:

Código Delphi [-]
type
TTLaminaInfo = (liName, liDimension, liColor);

Y un ejemplo de uso de dicha función es el siguiente:

Código Delphi [-]
Edit1.Text := GetLaminaInfo(ComboBox1.Text,liName);
// con liName se obtiene el nombre, Por ejemplo: 'LAMINA'

Edit1.Text := GetLaminaInfo(ComboBox1.Text,liDimension);
// con liDimension se obtiene la dimensión. Por ejemplo: '132 X 185'

Edit1.Text := GetLaminaInfo(ComboBox1.Text,liColor);
// con liColor se obtiene el color, Por ejemplo: BONE.

El primer parámetro de la función es el texto completo. Por ejemplo: LAMINA 135 X 185 BONE. El segundo, el tipo de información a extraer.

Ahora que lo pienso y viendo lo que deseas hacer se debería modificar el tipo para mejorar el ejemplo:

Código Delphi [-]
type
TLaminaInfo = (liName = 0, liDimension = 1, liColor = 2);

De este modo puedes hacer coincidir los indices del Combo o de algún otro control con el tipo de dato. Por ejemplo:

Código Delphi [-]
Edit1.Text := GetLaminaText(Edit2.Text,ComboBox1.ItemIndex);

Suponiendo que en Edit2.Text estés guardando el texto completo e ItemIndex del combo represente el tipo de información que pide.

Mi función es probable que pueda ser mejorada para tus propósitos. La verdad es que la hice en 5 minutos, y no he pensado mucho en las posibilidades que necesitas. Mi intención era mostrar más o menos lo que entendía de tus requisitos.

Si es esto lo que andas buscando dimelo, y si no lo es, también dímelo (con tirón de orejas por no haber prestado demasiada atención).

Saludos,