delphi - 使用特定字符集修剪字符串

Question

Delphi 中是否有与 Cocoa 等效的功能stringByTrimmingCharactersInSet？

我需要的是消除在字符串开头或结尾找到的字符集中包含的所有字符。可以没有，一个或多个开始或结束字符串...

在 Delphi 中执行此操作的最有效方法是什么？

Answer 1

据我所知，不存在这样的 RTL 函数。但是您可以查看JCL 项目JclStrings的单元部分，其中包括和 功能。StrTrimCharsLeftStrTrimCharsRight

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;

我很确定这不是性能最好的解决方案，但很难找到更简单的解决方案。