德尔福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：\用户\ -username-

从不：

C：\ Users \用户-username- \下载\ done.txt

我在这里做错了什么？

Answer 1

我的猜测是，你Username变量包含＃0于其终端及你outputing变量一定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结束时，如果有一些。