[DarkByte]

Hola, hoy el vuelto a probar el código, ya que la última vez se me olvidó responder. He usado los dós codigos:

Código Delphi [-]
  r := (LeftStr(s,4));
  if r = 'MNSG'  then
    begin
      Delete(s,1,4);
      ShowMessage (s);
    end;

Este, el de Descendents, que es el que más me gusta de momento (aunque he de reconocer que el otro parece más sencillo, pero me resulta más claro de comprender el de Descendents), me da error en LeftStr, más exactamente me dice:

[Error] Unit1.pas(814): Undeclared identifier: 'LeftStr'

Y respecto al segundo código, el del amigo Viet, lo copio tal como me viene, cambiando el msg que aparece al principio por la variable "s" que utilizo en el ejemplo de Descendents:

Código Delphi [-]
case copy(s, 1, 3) of
      'MSG': ShowMessage (s);

El de Viet me interesa un poco menos (aunque reconozoco que está bien) porque no se usar el case poniendo begin's y end's, aunque se para que sirve. Bueno, los errores que me dan son:

[Error] Unit1.pas(820): Ordinal type required //Primera linea
[Error] Unit1.pas(821): Incompatible types: 'Integer' and 'String' //Segunda línea

Muchas gracias simplemente, por leerme