Delphi XE3 - 无法连接字符串

时间:2013-01-21 18:19:45

标签: delphi concat delphi-xe3

对于我的生活,我无法连接两个(/三个)字符串。这些是我尝试过的一些代码:

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

我在这里做错了什么?

1 个答案:

答案 0 :(得分:16)

我的猜测是你的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。