Delphi XE3 - 无法连接字符串

Question

对于我的生活，我无法连接两个（/三个）字符串。这些是我尝试过的一些代码：

dir := 'C:\Users\' + Username + '\Downloads\done.txt'; //"Username" is the computer's current username.
//another example vvv
dir := 'C:\Users\' + Username;
dir := dir + '\Downloads\done.txt';
//last example vvv
dir := Concat('C:\Users\', Username, '\Downloads\done.txt');

所有示例总是返回相同的结果：

C:\Users\-用户名-

从不：

C:\Users\-用户名-\Downloads\done.txt

我在这里做错了什么？

Answer 1

我的猜测是您的 Username 变量在其末尾包含 #0 并且您将该变量输出到某个 Windows API 函数。例如以下代码将导致这种不当行为：

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
  Username: string;
begin
  Username := 'Username' + #0;
  Dir := Concat('C:\Users\', Username, '\Downloads\done.txt');
  ShowMessage(Dir);
end;

我的建议是检查您的 Username 变量的值，如果有的话，删除末尾多余的 #0。