Recortar cadena con juego de caracteres específico

Question

¿Hay una función en Delphi equivalente a stringByTrimmingCharactersInSet de Cocoa?

Lo que necesito es eliminar todos los caracteres incluidos en un conjunto de caracteres que se encuentran al principio o al final de una cadena. No puede haber ninguno, uno o más comenzando o terminando la cadena ...

¿Cuál sería la forma más eficiente de hacer esto en Delphi?

Answer 1

Hasta donde sé, no existe una función RTL como esa. Pero puede verificar JclStrings parte de la unidad JCL project, que incluyen las funciones StrTrimCharsLeft y StrTrimCharsRight.

function StrTrimCharsLeft(const S: string; const Chars: TCharValidator): string; overload; 
function StrTrimCharsLeft(const S: string; const Chars: array of Char): string; overload; 
function StrTrimCharRight(const S: string; C: Char): string; 
function StrTrimCharsRight(const S: string; const Chars: TCharValidator): string; overload; 
function StrTrimCharsRight(const S: string; const Chars: array of Char): string; overload; 

Answer 2

Según mi leal saber y entender, el RTL no incluye dicha función. Se podría utilizar expresiones regulares para llenar el vacío:

function MyTrim(const Input: string; const TrimChars: string): string; 
begin 
    Result := TRegEx.Replace(Input, Format('^[%s]*', [TrimChars]), ''); 
    Result := TRegEx.Replace(Result, Format('[%s]*$', [TrimChars]), ''); 
end; 

Estoy bastante seguro de que esto no es la mejor solución de la realización, pero sería difícil encontrar algo mucho más simple.