डेल्फी एक्सई 3 - तारों को संगत नहीं कर सकता

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- \ Users

कभी

:

सी: \ उपयोगकर्ता \ -username- \ डाउनलोड \ done.txt

मैं यहाँ क्या गलत कर रहा हूं?

Answer 1

मेरा अनुमान है कि आपके Username चर के अंत में # 0 है और आप उस चर को एक निश्चित विंडोज एपीआई फ़ंक्शन में आउटपुट कर रहे हैं। उदाहरण के लिए निम्नलिखित कोड इस दुर्व्यवहार के लिए परिणाम होगा:

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 दूर करने के लिए है।