Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
27. Jul 2018
Danke an samso, Anhang angepasst für ältere Delphis.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
27. Jul 2018
Interessanter Code, Danke dafür.
Falls jemand braucht, für ältere Delphi Versionen die noch kein SplitString() haben, im Anhang ist angepasstes Projekt.
Ps: TStrings mit ExtractStrings() habe ich verwendet.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
27. Jul 2018
Bei Videospielen wäre die Antwort "FPS = Soviel Bilder wie in einer Sekunde dargestellt werden können (CPU/GPU abhängig)"
Bei Musik-CDs hat Frames meines Erachtens nur Sinn wenn CD eine non-Stop CD ist (übergangsfreie Trackwechsel / Mix-CD).
Bei Videos hat Frames Einfluss auf die aktuelle Position zwischen den einzelnen Sekunden/Millisekunden, abhängig wie das Video kodiert ist.
Also gilt nach...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
27. Jul 2018
Nur wenn Frames sich auf Audio-CD bezieht. Schaut mal hier: Frames per second ↔ Frames per millisecond Conversion
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
26. Jul 2018
Habe mir das mal durchgelesen mit den Frames (ich pers. kenne Frames nur von Video-Inhalten bzw Video-Schnitt-Tools), selbst bei CD scheint es da zwei verschiedene Frame-Berechnungen zu geben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
25. Jul 2018
FormatSettings hat gefehlt, so klappt es, ich habe es getestet mit Delphi 2009.
function GetMillisecondSpan(S1, S2: String): Int64;
var
t1, t2: TDateTime;
FS: TFormatSettings;
begin
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
FS.DecimalSeparator := '.';
FS.TimeSeparator := ':';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
25. Jul 2018
Mein Vorschlag an TE:
Ändere die Edit.Texte in dieses Format 00:00:00.000, danach sowas hier
function BerechneEditFelder ( S1, S2: String ): Int64;
var
t1, t2: TDateTime;
begin
try
t1 := StrToTime( S1 );
t2 := StrToTime( S2 );
finally
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
25. Jul 2018
Input ist TDateTime, Output ist Int64.
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
25. Jul 2018
Dein Vorschlag, wenn denn wirklich nach Millisekunden geforscht werden soll kann man per MilliSecondsBetween() berechnen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
25. Jul 2018
0..1000 oder irre ich mich? Wenns 0..999 ist, mein Fehler!
Okay okay, Herr Raabe hat natürlich mal wieder Recht, gerade mal nachgeschaut:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
25. Jul 2018
Wahrscheinlich gar nicht da diese Kombination wenig Sinn ergibt, ansonsten würde ich SecondsBetween(TDateTime1,TDateTime2) Vorschlagen, damit hast Du die Differenz in Sekunden, die einfach wieder in Std:Min:Sek hochrechnen. Millisekunden besteht aus 4 Ziffern weswegen ich einfach mal von einem Schreibfehler ausgeh.