strftime für Delphi ?

[scrat1979]

Zitat von myicq:

Danke für das Antwort. Klar kenne ich die Formatcodes von Delphi.

In dieser Fall brauche ich aber die formatcodes von strftime() zu behandeln.

Ich kann das wenn notwendig selbst umsetzen. Aber hätte jemand das schon gemacht..

Wie wäre es denn, vor dem FormatDateTime durch StringReplace die Formatcodes umzuwandeln? So viele sind es ja nicht...

[Schokohase]

Zitat von scrat1979:

Wie wäre es denn, vor dem FormatDateTime durch StringReplace die Formatcodes umzuwandeln? So viele sind es ja nicht...

Nicht so gut, wenn du dir diesen gültigen format-String anschaust

Code:

Aus %%Y wird %Y

rauskommen müsste durch strftime

Code:

Aus %Y wird 2019

Der passende Format-String für Delphi wäre

Code:

"Aus %Y wird "yyyy

Meine Einschätzung: Es ist einfacher den Formatstring so wie er ist zu parsen und direkt die Werte zu ersetzen als diesen erst umzuformen (da muss man auch parsen) und dann durch FormatDateTime zu jagen.

[scrat1979]

Zitat von Schokohase:

Zitat von scrat1979:

Wie wäre es denn, vor dem FormatDateTime durch StringReplace die Formatcodes umzuwandeln? So viele sind es ja nicht...

Nicht so gut, wenn du dir diesen gültigen format-String anschaust

Code:

Aus %%Y wird %Y

rauskommen müsste durch strftime

Code:

Aus %Y wird 2019

Der passende Format-String für Delphi wäre

Code:

"Aus %Y wird "yyyy

Meine Einschätzung: Es ist einfacher den Formatstring so wie er ist zu parsen und direkt die Werte zu ersetzen als diesen erst umzuformen (da muss man auch parsen) und dann durch FormatDateTime zu jagen.

Vielleicht verstehen ich das ganze auch gerade falsch. Aber wenn ich beispielsweise %Y mit StringReplace in YYYY umwandle dann kommt doch bei FormatDateTime 2019 als Beispiel raus.

EDIT: Klar, direkt parsen ist natürlich besser

[Schokohase]

Wenn du bei

Code:

Aus %%Y wird %Y

alle %Y durch YYYY ersetzt, dann erhälst du

Code:

Aus %YYYY wird YYYY

Du brauchst aber für die korrekte Formatierung

Code:

"Aus %Y wird "YYYY

[scrat1979]

Zitat von Schokohase:

Wenn du bei

Code:

Aus %%Y wird %Y

alle %Y durch YYYY ersetzt, dann erhälst du

Code:

Aus %YYYY wird YYYY

Du brauchst aber für die korrekte Formatierung

Code:

"Aus %Y wird "YYYY

Ah, alles klar. Klingt irgendwie logisch

[Schokohase]

Es ist auch relativ simpel so einen Parser zu basteln.

Hier ein Anfang

Delphi-Quellcode:

function strftime(const Format: string; Value: TDateTime; const FormatSettings: TFormatSettings): string; overload;
var
  controlChar: Boolean;
  current: Char;
begin
  Result := string.Empty;
  controlChar := false;
  for current in Format do
  begin
    if controlChar then
    begin
      case current of
        // ---
        // Tag
        // ---
        'd':
          // Tag des Monats als zweistellige Zahl (ggf. mit vorangestellten Nullen)
          // 01 bis 31
          Result := Result + FormatDateTime('dd', Value, FormatSettings);
        // -----
        // Monat
        // -----
        'm':
          // Zweistellige numerische Darstellung des Monats
          // 01 (für Januar) bis 12 (für Dezember)
          Result := Result + FormatDateTime('mm', Value, FormatSettings);
        // ----
        // Jahr
        // ----
        'Y':
          // Vierstellige numerische Darstellung des Jahres
          // Beispiel: 2038
          Result := Result + FormatDateTime('yyyy', Value, FormatSettings);
        // -------------
        // Verschiedenes
        // -------------
        'n':
          // Ein Zeilenvorschubzeichen ("\n")
          Result := Result + sLineBreak;
        't':
          // Ein Tabulatorzeichen ("\t")
          Result := Result + #9;
        '%':
          // Ein Tabulatorzeichen ("\t")
          Result := Result + '%';
      else
        Result := Result + '%' + current;
      end;
      controlChar := False;
    end
    else
    begin
      if current <> '%' then
      begin
        Result := Result + current;
      end
      else
        controlChar := true;
    end;
  end;
  if controlChar then
    Result := Result + '%';
end;

function strftime(const Format: string; Value: TDateTime): string; overload;
begin
  Result := strftime(Format, Value, System.SysUtils.FormatSettings);
end;

function strftime(const Format: string): string; overload;
begin
  Result := strftime(Format, System.SysUtils.Now());
end;

Man braucht jetzt nur nach den Case-Teil um die anderen Zeichen ergänzen und fertig ist es.