Alternativas a esta funcion
 

Me encontre esta funcion en un blogger y queria preguntarles si alguno conoce otra forma de hacer lo mismo.

El codigo :

Código Delphi [-]
Function MidText(sCadena: String; sDel_1: String; sDel_2: String): String;
Begin
  Result := Copy(sCadena, AnsiPos(sDel_1, sCadena) + Length(sDel_1), Length(sCadena) - AnsiPos(sDel_2, Result));
  Result := Copy(Result, 1,  AnsiPos(sDel_2, Result) - 1);
End;

Sí, seguro que alguien conoce la forma de hacer lo mismo :confused:

yo también conosco otras...:D

ya hice una parecida , de esta forma tambien conozco otra forma de hacerlo.

Esto son unos foros para aprender y compartir. Supongo que has leido nuestra guía de estilo.
Por lo que tu pregunta tenía que haber sido otra, por ejemplo:

De esa manera habrías recibido respuesta de otros foreros aportando y compartiendo sus conocimientos.