Datum aus XML in DateTime umwandeln

[franktron]

Das ist der Code für die Umwandlung es kommt aber immer NOW raus

Delphi-Quellcode:

FFormat:=TFormatSettings.Create('en-US');
  FFormat.DateSeparator:='.';
  FFormat.LongDateFormat:='dd.mmm.yyyy';
  ....
  FBestDatum:=StrToDateDef(Trim(Liste.Strings[1]),Now,FFormat);

Hier ist das Datum was ich als String bekomme 26.OCT.2018

Was mache ich da falsch.

[SProske]

StrToDate unterstützt keine (kurzen) Monatsnamen, nur Zahlen.
Workaround: Monatsnamen mit den passenden Zahlen ersetzen.

Außerdem benötigst du ShortDateFormat.

[franktron]

Jetzt kommt was ganz komisches

Wenn ich das hier mache (x ist Longint)
FFormat.ShortMonthNames[x] dann kommt nur Blödsinn.
Wenn ich aber FFormat.ShortMonthNames[1] geht es, was ist das denn

[DieDolly]

Wieso ist X denn ein LongInt, obwohl es nur 12 Monate gibt?
ShortMonthNames geht von 1 bis 12. Da bringt dir ein LongInt nix.

[Jasocul]

Zitat von franktron:

Wenn ich das hier mache (x ist Longint)
FFormat.ShortMonthNames[x] dann kommt nur Blödsinn.

Ist "x" evtl. gleich "0"?
Das Array geht von 1 bis 12 und nicht von 0 bis 11.

[franktron]

Delphi-Quellcode:

for x:=1 To 12 do
              Begin
                if UpperCase(FFormat.ShortMonthNames[x])=UpperCase(Liste.Strings[1]) then
                  Liste.Strings[1]:=FFormat.ShortMonthNames[x];
              End;

Hier der Gesamte Code

[DieDolly]

Zitat von Jasocul:

Ist "x" evtl. gleich "0"?
Das Array geht von 1 bis 12 und nicht von 0 bis 11.

Da wäre es hilfreich zu wissen, wie der Blödsinn denn aussieht

Zitat von franktron:

Wenn ich das hier mache (x ist Longint)
FFormat.ShortMonthNames[x] dann kommt nur Blödsinn.
Wenn ich aber FFormat.ShortMonthNames[1] geht es, was ist das denn

[franktron]

Das ist ein Fehler im Debugger der Code läuft nur der Debugger zeigt mist