[Codevorstellung ?] SecondsToTime - Multilanguage

[Jumpy]

Danke Jasocul. Wie du erkannt hast, wollte ich nur auf humorige Weise auf einen Tipp-/Denk-/Schreibfehler hinweisen. Tut mir leid, wenn dass als Kritik verstanden wurde. Vielleicht liegts ja an der dunklen Grundstimmung über dem Forum, dass selbst ein so relaxter Typ wie ich, kritisch rüber kommt. *

* = Humor = Bitte nehmt mich nicht ernst, ich nehm euch ja auch nicht ernst.



Damit mein Beitrag nicht ganz Off-Topic ist: Ich finde das Beispiel nämlich eigentlich ganz OK. Brauchte auch mal sowas und meine Lösung dafür ist unschöner und ging über die DB.
Bzlg. Multi-Language, wäre es vllt. schöner, wenn man das WordList-Array mit der passenden Sprache von aussen reingeben könnte.

[Luckie]

Zitat von Jumpy:

Bzlg. Multi-Language, wäre es vllt. schöner, wenn man das WordList-Array mit der passenden Sprache von aussen reingeben könnte.

Einfach als Resourcenstrings deklarieren. Damit sollten die üblichen Übersetzungswerkezuge klar kommen.

[t.roller]

SecToTime: Lösungsvorschläge

Delphi-Quellcode:

function Floor(const X: Extended): Integer;
begin Result := Integer(Trunc(X)); if Frac(X) < 0 then Dec(Result); end;

function  DurationHourMinSec1(Sec : Cardinal) : string;
var ZH, ZM, ZS : integer;
begin
ZH := Sec div 3600; ZM := Sec div 60 - ZH * 60; ZS := Sec - (ZH * 3600 + ZM * 60) ;
result:=  Format('%.2d:%.2d:%.2d', [ZH, ZM, ZS]);
end;

function  DurationHourMinSec2(Sec : Integer) : string;
var ZD, ZH, ZM, ZS : integer;
begin
ZD:= floor(sec div 3600 div 24);
ZH:= floor(sec div 3600 mod 24);
ZM:= floor(sec div 60 mod 60);
ZS:= floor(sec mod 60);
result:=  Format('%.3dd:%.2dh:%.2dm:%.2ds', [ZD, ZH, ZM, ZS]);
end;

function  DurationHourMinSec3(Sec : Integer) : string;
var ZD, ZH, ZM, ZS : integer;
begin
ZD:= floor(sec div 3600 div 24);
ZH:= floor(sec div 3600 mod 24);
ZM:= floor(sec div 60 mod 60);
ZS:= floor(sec mod 60);
result:=  Format('%.3d days : %.2d hours : %.2d minutes : %.2d seconds', [ZD, ZH, ZM, ZS]);
end;

function  DurationHourMinSec4(Sec : Integer) : string;
var ZD, ZH, ZM, ZS : integer;
begin
result:='';
ZD:= floor(sec div 3600 div 24);
ZH:= floor(sec div 3600 mod 24);
ZM:= floor(sec div 60 mod 60);
ZS:= floor(sec mod 60);
if ZD=0 then result:= Format('%.2d hours : %.2d minutes : %.2d seconds', [ZH, ZM, ZS]);
if (ZD=0) and (ZH=0) then result:= Format('%.2d minutes : %.2d seconds', [ZM, ZS]);
if (ZD=0) and (ZH=0) and (ZM=0) then result:= Format('%.2d seconds', [ZS]);
if result='' then
result:= Format('%.3d days : %.2d hours : %.2d minutes : %.2d seconds', [ZD, ZH, ZM, ZS]);
end;
...
Memo1.Lines.Add(DurationHourMinSec1(count));
Memo1.Lines.Add(DurationHourMinSec2(count));
Memo1.Lines.Add(DurationHourMinSec3(count));
Memo1.Lines.Add(DurationHourMinSec4(count));

[Der schöne Günther]

Viele Wege führen nach Rom? Alles klar, dieser hier auch

Delphi-Quellcode:

uses System.TimeSpan, Vcl.Dialogs;
var
   timeSpan: TTimeSpan;
begin
   timeSpan := TTimeSpan.FromSeconds(12345);
   ShowMessageFmt(
      '%d hours, %d minutes and %d seconds', [
      timeSpan.Hours, timeSpan.Minutes, timeSpan.Seconds
   ]);
end.