Question

Delphi中的函数是否等同于Cocoa的stringByTrimmingCharactersInSet？

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

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

Answer 1

据我所知，目前还没有这样的RTL功能。但是，您可以查看JclStrings的JCL project单元部分，其中包括StrTrimCharsLeft和。{3}} 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;

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

修剪具有特定字符集的字符串

2 个答案: