Delphi XE3 - Nie można połączyć ciągów znaków

Question

Z mojego życia nie mogę połączyć dwóch (/ trzech) ciągów. Są to niektóre kody próbowałem:

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

Wszystkie przykłady zawsze zwraca ten sam wynik:

C: \ Users \ -username-

Nigdy:

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

Co ja tu robię źle?

Answer 1

Domyślam się, że zmienna Username zawiera na końcu # 0 i wyprowadzasz tę zmienną do określonej funkcji Windows API. Na przykład poniższy kod doprowadzi do tego przewinienia:

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; 

Moja propozycja jest taka, aby sprawdzić wartość zmiennej Username i usunąć dodatkowy # 0 na końcu, czy istnieje jakiś.