Delphi XE3 - Dizgilerin birleştirilememesi

Question

Hayatım boyunca iki (/ üç) dizeyi birleştiremiyorum. Bunlar ben denedim bazı kodlar şunlardır:

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

örneklerin hepsi hep aynı sonuç:

C: \ Users

Hiç -username- \:

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

Burada yanlış olan ne yapıyorum?

Answer 1

Benim tahminim, sizin Username değişkeninizin en sonunda # 0 içermesi ve bu değişkeni belirli bir Windows API işlevine çıkarmanızdır. Örneğin aşağıdaki kod, bu doğması sonuçlanacaktır:

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; 

Benim önerim Username değişkenin değerini kontrol etmek ve bazı varsa sonunda fazladan # 0 kaldırmaktır.