Dönüşüm

Question

Bu kod Delphi XE2'de çalışmalıdır çalışmıyor ama StrtoDateTime dönüşümle "geçerli bir tarih ve saat" hatası veriyor:

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; 

Herhangi bir ipuçları? İç rutinleri dize dize tarih ve saat parçaları belirlemek için bu karakteri kullanır ayrıştırmak çünkü

Answer 1

bildirilen StrToDateTime. Her ikisinin de uygulanmasına bir göz atın ve StrToDateTime'ın bir şekilde olduğunu anlayacaksınız ... ve VarToDateTime kendi başına belirleyemediğinde işletim sistemine soracaktır.

Bu

Delphi XE3 ile çalışır (aynı zamanda önceki sürümleri ile çalışması gerekir):

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

Sen iki sorunu

1. Sen DateSeparator gibi bir beyaz boşluklar kullanamazsınız var. Eğer bazı özel DateTime-Biçimleri daha iyi VarToDateTime kullanmak yerine gerekir dönüştürmek istiyorsanız ay parçası mmm dize kullandığınızda

2. StrToDateTime fonksiyon çalışmaz, bu QC 23301