Identificar parte de un dato dentro de un campo

[[egostar]]

Empezado por Caral

Hola

Pues ya somos dos.
Lo que quiero hacer es identificar parte del texto que contiene ese campo.

Si el campo tiene:
LAMINA 187 X 305 BONE

Tiene:
LAMINA
187
X
305
BONE

Quiero que al mostrar ese campo en el combobox me identifique la ultima parte del campo: BONE

Se podra?'

Estoy cada vez mas espeso, no capto nada.
Saludos

Pues de poder se debe de poder , una pregunta, todos tus registros siguen ese formato?

LAMINA[espacio]187[espacio]X[espacio]305[espacio]BONE

Si es así puedes usar esta función que me encontre creo en Trucomanía.

Código Delphi [-]
function GetToken(Cadena,Separador:string;Token:integer):string;
var
  Posicion:integer;
begin
   while Token > 1 do begin
     Delete(Cadena,1,Pos(Separador,Cadena));
     Dec(Token);
   end;
   Posicion:=Pos(Separador,Cadena);
   if Posicion=0 then result:=cadena
   else Result:=Copy(Cadena,1,Posicion-Length(Separador));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetToken('LAMINA 187 X 305 BONE',' ',5));
  ShowMessage(GetToken('LAMINA 187 X 305 BLANCO',' ',5));
end;

Salud OS

Edito: Vaya amigo Dec, me ganaste y me parece que tu función GetLaminaType() esta optimizada ....