Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by mm1256,
12. Dez 2015
......und bei uns in Bayern, wo die Uhren bekanntlich rückwärts gehen, was machen wir da? :oops:
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by mm1256,
12. Dez 2015
Na ja, manchmal ergibt sich schon die Situation, aus einem formatierten String zurück zu TDateTime rechnen zu müssen. Z.B. Importfunktionen aus Textdateien usw.
Ich wollte eigentlich (ohne Kommentar) nur auf die Speicherleiche und die fehlenden Delphi-Tags hinweisen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by mm1256,
12. Dez 2015
function Zeit_In_Sekunden_Umwandeln(std_min_sek:string): integer;
{ Rechnet eine Zeit im Format Std:mm:ss in Sekunden um. Beispiel:
ShowMessage( IntToSTr( Zeit_In_Sekunden_Umwandeln('0:10:00') )); // 10 min, result 600 (sekunden} //SH
var
zeit : TStrings;
begin
Result := 0;
zeit := TStringList.Create;
try
zeit.Delimiter:=':';;