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;