रूपांतरण काम नहीं करता है

Question

इस कोड डेल्फी XE2 में काम करना चाहिए, लेकिन यह "एक मान्य दिनांक और समय" त्रुटि StrtoDateTime रूपांतरण में देता है:

procedure TForm2.Button1Click(Sender: TObject); 
var 
    s: string; 
    d: TDateTime; 
    FmtStngs: TFormatSettings; 
begin 
    GetLocaleFormatSettings(GetThreadLocale, FmtStngs); 
    FmtStngs.DateSeparator := #32; 
    FmtStngs.ShortDateFormat := 'dd mmm yyyy'; 
    FmtStngs.TimeSeparator := ':'; 
    FmtStngs.LongTimeFormat := 'hh:nn'; 

    s := FormatDateTime('', Now, FmtStngs); 
    d := StrToDateTime(s, FmtStngs); 
end; 

किसी भी संकेत?

Answer 1

में बताया जाता है आप कन्वर्ट करने के लिए कुछ विशेष दिनांक समय-स्वरूप आप बेहतर VarToDateTime का उपयोग करने के बजाय चाहिए चाहते हैं StrToDateTime। बस दोनों के कार्यान्वयन पर एक नज़र डालें और आप पहचान लेंगे कि स्ट्रेटोडेट टाइम किसी भी तरह से है ... और VarToDateTime ओएस से पूछेगा कि क्या यह स्वयं निर्धारित नहीं हो सकता है। BTW

procedure TForm2.Button1Click(Sender: TObject); 
var 
    s: string; 
    d: TDateTime; 
    FmtStngs: TFormatSettings; 
begin 
    GetLocaleFormatSettings(GetThreadLocale, FmtStngs); 
    FmtStngs.DateSeparator := #32; 
    FmtStngs.ShortDateFormat := 'dd mmm yyyy'; 
    FmtStngs.TimeSeparator := ':'; 
    FmtStngs.LongTimeFormat := 'hh:nn'; 

    s := FormatDateTime('', Now, FmtStngs); 
    d := VarToDateTime(s); 
end; 

Answer 2

आप क्योंकि आंतरिक दिनचर्या पार्स करने के लिए स्ट्रिंग स्ट्रिंग की तारीख और समय निर्धारित करने के लिए भागों इस चरित्र का उपयोग करता है, दो मुद्दों

1. आप DateSeparator के रूप में एक खाली स्थान के उपयोग नहीं कर सकते है।

2. StrToDateTime समारोह जब महीनों भाग का उपयोग mmm स्ट्रिंग काम नहीं करता है, यह इस QC 23301