diff options
Diffstat (limited to 'lowlevelunit.pas')
-rw-r--r-- | lowlevelunit.pas | 30 |
1 files changed, 3 insertions, 27 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 139f779..5c2db13 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -190,7 +190,9 @@ const implementation -uses matheunit, systemunit; +uses + matheunit; + // überladene operatoren ******************************************************* @@ -669,32 +671,6 @@ begin delete(result,length(result),1); end; -function zeitDarstellen(t: extended): string; -var - schreibe: boolean; -begin - result:='('; - schreibe:=t>=1; - if schreibe then begin - result:=result+intToStr(floor(t))+' Tage '; - t:=t-floor(t); - end; - t:=t*24; - schreibe:=schreibe or (t>=1); - if schreibe then begin - result:=intToStr(floor(t))+':'; - t:=t-floor(t); - end; - t:=t*60; - schreibe:=schreibe or (t>=1); - if schreibe then begin - result:=intToStr(floor(t))+':'; - t:=t-floor(t); - end; - t:=t*60; - result:=result+intToStr(round(t))+' s)'; -end; - function binOpPos(op: char; s: string): integer; begin result:=0; |