Alternativas a esta funcion

[JuanOrtega]

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;

[Casimiro Notevi]

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

[cloayza]

yo también conosco otras...

[JuanOrtega]

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

[Casimiro Notevi]

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:

A partir de esta función he creado esta otra que hace lo mismo
---
Aquí tu código
---
¿De qué otra forma se podría hacer más funcional?

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