max fuer tGenauigkeit eingefuegt

1 files changed, 6 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index feeea4d..a887b58 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -50,6 +50,7 @@ function mitte(s1,s2: string): string;
 function myFloatToStr(x: extended): string; overload;
 function myFloatToStr(x: extended; ex: string): string; overload;
 function myStrToFloat(s: string): extended;
+function max(g1,g2: tGenauigkeit): tGenauigkeit; overload;
 
 function floattostrtrunc(f: extended; dig: longint; laessig: boolean): string;
 function binOpPos(op: char; s: string): integer;
@@ -353,6 +354,11 @@ begin
    result:=-result;
 end;
 
+function max(g1,g2: tGenauigkeit): tGenauigkeit;
+begin
+  if g1>g2 then result:=g1
+  else result:=g2;
+end;
 
 // allgemeine Funktionen *******************************************************