Identificar parte de un dato dentro de un campo

[[Caral]]

Hola
Retomando este tema.
La función devuelve el ultimo dato (usando cualquiera de las funciones).
Me preguntaba si seria posible que devolviera el dato que uno necesite, el primero o el segundo o el ultimo (como en este caso).
Lo He intentado pero al contar el dato de atrás para adelante me coloca todas las palabras según van.
Se podrá hacer la diferenciación? o se necesitara otra función.?
Gracias
Saludos

[[Delphius]]

Mi buen amigo Carlos, ¿Por casualidad te refieres a esto?

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

function GetLaminaInfo(LaminaText: string; Info: TLaminaInfo): string;
var PosIni, PosEnd: integer;
begin
  //preventiva
  PosIni := 0;
  PosEnd := 0;

  // Dependiendo de la info a pedir, calculamos posiciones
  // iniciales y finales
  case Info of
  liName: begin
            Posini := 1;
            PosEnd := Pos(' ',LaminaText);
          end;
  liDimension: begin
                 PosIni := Pos(' ',LaminaText) + 1;
                 PosEnd := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 2;
               end;
  liColor: begin
             PosIni := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 1;
             PosEnd := Length(LaminaText) + 1;
           end;
  end;

  // copiamos el texto que esté comprendido desde PosIni a PosEnd
  result := Copy(LaminaText,PosIni,PosEnd - PosIni);
end;

Saludos,

[[Caral]]

Hola
Gracias Marcelo por contestar.
Tengo algunas preguntas:
Esta parte es una variable publica??:

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

Ahora para llamar a la funcion que tengo lo hago asi:
En este caso solo devuelve el ultimo valor.

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
ColorL: string;
begin
 ColorL:= DameElTipo(ComboBox1.Text);
 showmessage(ColorL);
end;

Como haria para llamar a tu funcion???.
Supongo que tengo que indicar el tipo (Posin) o (PosEnd), pero no se como hacerlo.
Saludos

[[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,

[[Caral]]

Hola
En tu ultimo ejemplo, que me parece genial ademas de practico me genera este error:

[Error] Unit1.pas(166): Incompatible types: 'TLaminaInfo1' and 'Integer'

en esta linea:

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

No se si tendra que ver con que tendria que devolver un integer y pide un string.
No entiendo el por que??.
Saludos

[[Delphius]]

¡Ouch!
Como se nota que he perdido la práctica con los enumerados!

Entonces modifica a la función por esta otra:

Código Delphi [-]
function GetLaminaInfo(LaminaText: string; Info: integer): string;
var PosIni, PosEnd: integer;
begin
  //preventiva
  PosIni := 0;
  PosEnd := 0;

  // Dependiendo de la info a pedir, calculamos posiciones
  // iniciales y finales
  case Info of
  0: begin
            Posini := 1;
            PosEnd := Pos(' ',LaminaText);
          end;
  1: begin
                 PosIni := Pos(' ',LaminaText) + 1;
                 PosEnd := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 2;
               end;
  2: begin
             PosIni := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 1;
             PosEnd := Length(LaminaText) + 1;
           end;
  end;

  // copiamos el texto que esté comprendido desde PosIni a PosEnd
  result := Copy(LaminaText,PosIni,PosEnd - PosIni);
end;

Y te olvidas del tipo TLaminaInfo, borralo.
Y ya no deberías tener problemas.

Saludos,

[[Caral]]

Hola
Muy interesante el concepto, Efectivamente funciona.
Gracias por el apoyo, me cuesta entender el concepto de las funciones pero con estas practicas voy aprendiendo.
Gracias de nuevo amigo.
Saludos