lowlevelunit.pas: unnötige uses entfernt

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;