Delphi-SysUtils.Trim不删除最后一个空格？字符

如何解决Delphi-SysUtils.Trim不删除最后一个空格？字符

Delphi RIO。我已经用Delphi构建了一个Excel插件（也使用了AddIn Express）。我遍历一列以读取单元格值。读取单元格值后，执行TRIM函数。 TRIM不会删除最后一个空格。代码段...

acctName := Trim(UpperCase(Acctname));

在代码之前，AcctName为'ABC Holdings'。 TRIM功能后相同。看来Excel在那里添加了某种类型的其他字符。（换行？回车？）摆脱这种情况的最佳方法是什么？有没有一种方法可以要求调试器向我显示此变量的十六进制值。我已经尝试了“检查”和“评估”窗口。它们都只显示文本。请注意，我必须小心删除非文本字符，并且某些公司名称带有破折号，逗号，撇号等。

**其他信息-基于Andreas的建议，我添加了以下内容...

ShowMessage(IntToHex(Ord(Acctname[Acctname.Length])));

这将返回'00A0'。所以我想我可以做一个简单的StringReplace ...所以我在Andreas代码之前添加此代码...

 acctName := StringReplace(acctName,#13,'',[rfReplaceAll]);
 acctName := StringReplace(acctName,#10,[rfReplaceAll]);

但是，似乎没有任何改变。 ShowMessage仍将“ 00A0”显示为最后一个字符。为什么StringReplace不删除它？

解决方法

如果您想知道字符串最后一个字符的真实身份，则可以显示其Unicode代码点：

ShowMessage(IntToHex(Ord(Acctname[Acctname.Length]))).

或者，您可以使用实用程序来研究剪贴板上的Unicode字符，例如my own。

是的，所讨论的字符是U+00A0: NO-BREAK SPACE。

这就像一个普通的空格，但是它告诉渲染应用程序不要在该空格处插入换行符。例如，至少在瑞典语中，您希望5 000 kWh中的空格不间断。

默认情况下，Trim和TStringHelper.Trim不会删除这种空白。（他们还会离开U+2007: FIGURE SPACE和其他几种空白。）

字符串帮助器方法有一个重载，可让您指定要修剪的字符。您可以使用它来包含U+00A0：

S.Trim([#$20,#$A0,#$9,#$D,#$A]) // space,nbsp,tab,CR,LF
                                    // (many whitespace characters missing!)

但是也许更好的解决方案是依靠Unicode表征并做到

function RealTrimRight(const S: string): string;
var
  i: Integer;
begin
  i := S.Length;
  while (i > 0) and S[i].IsWhiteSpace do
    Dec(i);
  Result := Copy(S,1,i);
end;

当然，您可以实现类似的RealTrimLeft和RealTrim函数。

当然，有很多方法可以在调试器中查看实际的字符串字节。除了在 Evaluate / Modify （评估/修改）窗口（ Ctrl + F7 ）中写Ord(S[S.Length])之类的东西之外，我个人最喜欢的方法是使用 Memory 窗口（ Ctrl + Alt + E ）。有了焦点后，可以按 Ctrl + G 并键入S[1]以查看实际的字节数：

在这里您看到字符串test string。由于自Delphi 2009起字符串是Unicode（UTF-16），因此每个字符占用两个字节。对于简单的ASCII字符，这意味着第二个字节为空。我们的字符串的ASCII值为74 65 73 74 20 73 74 72 69 6E 67。您还可以在（02A0855C的上一行中看到我们的字符串对象的引用计数为1，长度为B（= 11）。

作为演示，显示unicode字符串：

program q63847533;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
type
  array100              = array[0..99] of Byte;
  parray100             = ^array100;
var
  searchResult          : TSearchRec;
  Name                  : string;
  display               : parray100 absolute Name;
  dummy                 : string;

begin
  if findfirst('z*.mp3',faAnyFile,searchResult) = 0 then
  begin
    repeat
      writeln('File name = '+searchResult.Name);
      name := searchResult.Name;
      writeln('File size = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
    FindClose(searchResult);
  end;
  readln(dummy);
end.

我的目录包含两个z*.mp3文件，一个文件具有ANSI名称，另一个文件具有Unicode名称。

将display^用作十六进制或内存转储将显示您似乎需要的内容（问题的 Is there a way I can ask the debugger to show me the HEX value for this variable.）

Delphi-SysUtils.Trim不删除最后一个空格？字符

如何解决Delphi-SysUtils.Trim不删除最后一个空格？字符

解决方法

相关推荐