string - 如何删除字符周围的空间？

Question

假设我有以下字符串:

s := 'This , is,       the Delphi  ,    World!';

我想要以下输出:

Result := 'This,is,the Delphi,World!';

基本上，我需要一个例程，它可以删除 所有 出现的空格仅如果它们出现在逗号字符(这是我的分隔符)之前或之后，则在其他字符之间保留完整的空格话。

非常感谢任何帮助。

您认为这个解决方案怎么样？

function RemoveSpacesAroundDelimiter(var aString: string; aDelimiter:
    string): string;
begin
  while AnsiContainsText(aString, aDelimiter + ' ') do
    begin
    aString := StringReplace(aString, ', ', aDelimiter, [rfReplaceAll, rfIgnoreCase]);
    end;

  while AnsiContainsText(aString, ' ' + aDelimiter) do
    begin
    aString := StringReplace(aString, ' ' + aDelimiter, aDelimiter, [rfReplaceAll, rfIgnoreCase]);
    end;

  Result := aString;
end;

谢谢

法比奥

Answer 1

听起来像是 TStringList 的任务。

function UltraTrim(Value: string): string;
var
  sl: TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    // Prevent the stringlist from using spaces as delimiters too.
    sl.StrictDelimiter := True;

    // Set the comma separated text.
    sl.CommaText := Value;

    // Trim each item.
    for i := 0 to sl.Count -1 do
      sl[i] := Trim(sl[i]);

    // Concat back to comma separated string.
    Result := sl.CommaText;
  finally
    sl.Free;
  end;

end;