FormatSettings for Dummies

[haentschman]

Zitat:

Um damit zu arbeiten verwendet man ganz simpel die Funktionen, die optional die FormatSettings als Argument anbieten. Alles, was nach Datum/Zeit riecht wird intern von System.SysUtils.DateTimeToString() (nur intern verfügbar) in einen String umgewandelt.

...aber mit falschem Zeitformat.

Zitat:

Das kann ich noch nicht einmal kompilieren

...sorry war auf dem Handy aus dem Hut getippt. Value und FormatString ist umgekehrt.

Delphi-Quellcode:

procedure TForm1.PresentData;
begin
  Label1.Caption := FormatDateTime( FormatSettings.ShortDateFormat, Now );
end;

...jetzt nimmst du mal ShortTimeFormat und versuchst in der Region Englisch mit 12 Std. Anzeige und AM/PM einzustellen. Alternativ kannst du auch unser 24 Stundenformat probieren... es kommt immer 12 Std.Format ohne AM/PM raus.


Wir brechen hier ab. Ich habe mir das selbst für unsere Zwecke korrigiert.

Danke an alle...

[Sir Rufo]

Beim Zeitformat hat Emba allerdings geschlafen, das wird nicht so übernommen, wie in den Windows-Einstellungen eingetragen.

Delphi-Quellcode:

  TimePrefix := '';
  TimePostfix := '';
  if StrToIntDef(GetLocaleStr(Locale, LOCALE_ITLZERO, '0'), 0) = 0 then
    HourFormat := 'h'
  else
    HourFormat := 'hh';
  if StrToIntDef(GetLocaleStr(Locale, LOCALE_ITIME, '0'), 0) = 0 then
    if StrToIntDef(GetLocaleStr(Locale, LOCALE_ITIMEMARKPOSN, '0'), 0) = 0 then
      TimePostfix := ' AMPM'
    else
      TimePrefix := 'AMPM ';
  Result.ShortTimeFormat := TimePrefix + HourFormat + ':mm' + TimePostfix; // <- DA
  Result.LongTimeFormat := TimePrefix + HourFormat + ':mm:ss' + TimePostfix; // <- DA

Da bleibt nur der Weg über das OS (auslesen, ummodeln, verwenden)

[haentschman]

Davon rede ich die ganze Zeit... na endlich.

[Sir Rufo]

Zitat von haentschman:

Davon rede ich die ganze Zeit... na endlich.

Nicht wirklich

Zitat von haentschman:

1. Warum kommt hier Label.Caption := FormatDateTime(Now, FormatSettings.ShortDateFormat) 12/04/2016 statt 12.04.2016 ?

[haentschman]

Oh ja... streiten.
Das mit den / am Anfang war ein zusätzliches zum Zeitformat.

Zitat:

1. Warum kommt hier Label.Caption := FormatDateTime(Now, FormatSettings.ShortDateFormat) 12/04/2016 statt 12.04.2016 ?
.
2. Warum steht im ShortTimeFormat etc. immer hh statt HH wie ausgewählt?
3. Warum werden beim Auswählen des englischen Formates zwar die Strings für Vormittag / Nachmittag in FormatSettings eingetragen aber kein Platzhalter dafür?
.
.
...egal welche Einstellungen für den Zeitanteil gewählt werden, der Zeitanteil ist immer gleich. (siehe Punkt 2 + 3)

Danke an alle...

[haentschman]

Zitat:

TFormatSettings.ShortTimeFormat und LongTimeFormat hätten etwas mit dem ab Windows 7 einstellbaren "Short time" und "Long time" zu tun, was aber nicht der Fall ist.

...kannst du das näher erklären? Alle anderen Änderungen an der Region werden in die Formatsettings übernommen... nur die 2 Zeitformatierungen nicht.

[Stevie]

Weil es diese beiden Werte (damals noch ohne TFormatSettings als globale Variablen) schon vor Windows 7 gab, welches zusätzlich zu dem Time Format noch ein Short Time einführte (und die entsprechende Konstante dazu).