Delphi XE3 - Không thể nối các chuỗi

Question

Đối với cuộc sống của tôi, tôi không thể nối hai (/ ba) chuỗi. Đây là một số mã tôi đã cố gắng:

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'); 

Tất cả những ví dụ luôn trả lại kết quả tương tự:

C: \ Users \ -username-

Không bao giờ:

C: \ Users \ -username- \ Downloads \ done.txt

Tôi đang làm gì sai ở đây?

Answer 1

Đoán của tôi là biến số Username của bạn có chứa # 0 ở cuối và bạn đang xuất biến đó thành một hàm API Windows nhất định. Ví dụ đoạn mã sau sẽ dẫn đến hành vi sai trái này:

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; 

Đề nghị của tôi là để kiểm tra giá trị của biến Username của bạn và loại bỏ thêm cáC# 0 ở cuối nếu có một số.