在字符串中复制一个字符，留下一个空字符串

Question

我有这个非常简单的代码，女巫给我留下了一个空字符串。如您所见，它只是复制了“FileDir”字符串中的每个“\”。当我调用“Showmessage(FileDir)”时，我得到一个空框。但是，当我在循环中调用“Showmessage(FileDir[I])”时，我确实得到了字符。

var
  s, FileDir: string;
  I: integer;

for I := 0 to FileDir.Length do
begin
  if FileDir[I] = '\' then
    s := s + '\';
  s := s + FileDir[i];
end;
FileDir := s;
Showmessage(FileDir);

我已编辑我的代码以将字符串放入编辑框中，然后将其复制到我的“FileDir”字符串中。这可行，但我不满意

for I := 0 to FileDir.Length do
begin
  if FileDir[I] = '\' then
    edbox.Text := edbox.Text + '\';
  edbox.Text := edbox.Text + FileDir[i];
end;
FileDir := edbox.Text;
Showmessage(FileDir);

很可能我没有看到明显的情况，所以也许你们中的一个人看到了。提前致谢

Answer 1

for I := 0 to FileDir.Length do

您在这里迭代 FileDir.Length+1 字符，这显然不是您的意图。如果您使用基于零的字符串，则循环应该是

for I := 0 to FileDir.Length-1 do

或者如果你的字符串是基于一个的，那么它应该是

for I := 1 to FileDir.Length do

当我调用“Showmessage(FileDir)”时，我得到一个空框。

这似乎表明越界访问是当您访问索引为零的元素时，因此您的字符串似乎是传统的基于字符串的字符串。

---

这个故事的真正寓意是您需要在编译器选项中启用范围检查。执行此操作后，编译器将发出诊断代码，每当您执行越界数组访问时，该代码将引发信息性运行时错误。

---

您的代码都可以替换为

FileDir := StringReplace(FileDir, '\', '\\', rfReplaceAll);