[dec]

Hola,

Empezado por egostar

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

Huy... no sé qué te diga... bueno, sí: que la tuya me parece curiosa.

Y, respecto de la del compañero keyboy, chico, yo probé con el "Reverse" pero me hice un lío...

Por cierto, creo que la de keyboy se muestra favorita, ahora, eso sí, le falta algo:

Código Delphi [-]
uses
  StrUtils;