假设我有以下字符串:
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;
thanks
fabio