En
esta página se propone una solución que conlleva cierta cantidad de código, dentro del cual se presenta esta función:
Código Delphi
[-]
function GetTagValue(const ATag: String): String;
var
p: Integer;
begin
p := pos('=', ATag);
if p = 0 then
Result := ''
else
Result := copy(ATag, p + 1, MaxInt);
end;
Como puede verse, si la cadena dada contiene el símbolo "=", la función devolverá la subcadena que forman todos los caracteres que estén a la derecha de ese símbolo. Y de no incluir el símbolo de igualdad, entonces devolverá cadena vacía.
Observen cómo el código de dicha función puede reducirse a una sola sentencia si ponemos
GHFRTL en el Uses:
Código Delphi
[-]
Function GetTagValue (Const ATag :String) :String;
Begin
Result := ghRightOf (ATag, '=');
End;
La nueva GetTagValue hará exactamente el mismo trabajo, pero con menos esfuerzo por parte de quien escribe la función y sobre todo de quienes luego la lean.
Obtener lo que una cadena lleva a la derecha de un carácter específico es algo tan común, que justificó la existencia de la función ghRightOf.
Este hilo, como los demás, está abierto a cualquier duda o inquietud que deseen expresar.
Saludos.