From 2f0783fd90c36dc3b4f0565fa581314eea7bee2f Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 10 Oct 2018 16:22:52 +0200
Subject: lowlevelunit.pas: unnötige uses entfernt
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lowlevelunit.pas | 30 +++---------------------------
 1 file 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;
-- 
cgit v1.2.3-54-g00ecf