Delphi 11 Alexandria ist ONLINE!

[Uwe Raabe]

Zitat von himitsu:

Das war aber auch schon immer falsch und hätte so oder so geändert werden sollen, auch wenn es vielleicht mal funktioniert hat.

Genau!

Die neue Implementierung kann jetzt halt auch Monatsnamen bzw. -abkürzungen erkennen. Früher waren nur Zahlen erlaubt.

Im Gegensatz zu dem recht einfachen GetDateOrder aus Delphi 7

Delphi-Quellcode:

function GetDateOrder(const DateFormat: string): TDateOrder;
var
  I: Integer;
begin
  Result := doMDY;
  I := 1;
  while I <= Length(DateFormat) do
  begin
    case Chr(Ord(DateFormat[I]) and $DF) of
      'E': Result := doYMD;
      'Y': Result := doYMD;
      'M': Result := doMDY;
      'D': Result := doDMY;
    else
      Inc(I);
      Continue;
    end;
    Exit;
  end;
  Result := doMDY;
end;

ist das aktuelle GetDateSequence deutlich komplexer und achtet eben auch auf den Slash '/' als Datumstrenner.

Delphi-Quellcode:

      case PrevChar of
      'Y', 'y': Part := dpYear;
      'M', 'm': Part := dpMonth;
      'D', 'd': Part := dpDay;
      '/':      Part := dpSep;
      'G', 'g': Part := dpEraName;
      'E', 'e': Part := dpYearCurEra;
      ' ', #0:  Part := dpNone;

[win568]

Hi

Wäre die Erweiterung:

'/', '.': Part := dpSep;

gewesen, hätte es eine Menge Arbeit erspart und abwärtskompatibel gewesen.
So müssen wir nun nicht nur unsere Sourcen anpassen, sondern auch eine Menge die
Hersteller der Fremdsourcen kontaktieren, die von Ihrem Glück noch nichts wissen.

[Uwe Raabe]

Zitat von win568:

Wäre die Erweiterung:

'/', '.': Part := dpSep;

Für Deutsch wäre das vielleicht passend gewesen, aber für andere Länder bräuchte es vielleicht einen Bindestrich, ein Komma oder ein Leerzeichen. Außerdem war der Slash an der Stelle schon immer vorgesehen, es wurde nur nicht kontrolliert.

Es hat auch ganz konkrete Auswirkungen, wenn man in Datumsformaten nicht den Slash verwendet. Folgender Code sollte das Datum im ersten Fall mit einem Punkt trennen. Dann wechseln wir den DateSeparator auf einen Bindestrich, was zunächst auch funktioniert, aber bei dem ShortDateFormat mit dem Punkt eben nicht.

Delphi-Quellcode:

var
  FmtSettings: TFormatSettings;
begin
  try
    FmtSettings := TFormatSettings.Create('de-DE');
    Writeln(DateTimeToStr(Now, FmtSettings));
    FmtSettings.DateSeparator := '-';
    Writeln(DateTimeToStr(Now, FmtSettings));
    FmtSettings.ShortDateFormat := 'dd.mm.yyyy';
    Writeln(DateTimeToStr(Now, FmtSettings));
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

Ich warte aber schon länger auf einen Off-Topic Einwurf...

[freimatz]

Och, die Mods betrachten diese ... is da Topics eh nur als Mülleimer. Der Thread war doch seit der zweiten Seite Offtopic. Es geht hier doch nicht meist nicht darum dass es nun online ist, sondern um Probleme und sonstiges Zeug.
Ich bedanke mit bei jedem der hier einen Thread startet auch wenn es um 11 geht.

[Daniel]

"Mülleimer" passt nicht ganz, aber zu jedem Release gibt es Gesprächsbedarf und solche Sammelthemen fischen das ganz gut weg.
In der englischen DP gibt es derzeit ein ähnliches Thema.

Diese Sammelbecken sind nicht ideal, aber in der Praxis einfach ein adäquates Mittel.