Строка обрезки со специальной кодировкой

Question

Есть ли функция в Delphi, эквивалентная stringByTrimmingCharactersInSet Cocoa?

Мне нужно устранить все символы, входящие в набор символов, которые находятся в начале или в конце строки. Не может быть ни одного, ни одного или более начала или окончания строки ...

Что было бы самым эффективным способом сделать это в Delphi?

Answer 1

Насколько я знаю, нет такой функции RTL. Но вы можете проверить блок JclStringsJCL project, который включает в себя функции StrTrimCharsLeft и 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

Насколько я знаю, RTL не включает такую ​​функцию. Вы можете использовать регулярные выражения, чтобы заполнить этот пробел:

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; 

Я совершенно уверен, что это не самое лучшее выполнение решения, но было бы трудно найти что-то гораздо проще.