diff options
| -rw-r--r-- | lowlevelunit.pas | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 7eb0849..7115952 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -50,6 +50,8 @@ 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 myIntToStr(i,dg: longint): string; overload; +function myIntToStr(i,dg: longint; fill: string): string; overload; function max(g1,g2: tGenauigkeit): tGenauigkeit; overload; function wertGroesze(g: tGenauigkeit): longint; @@ -375,6 +377,18 @@ begin result:=-result; end; +function myIntToStr(i,dg: longint): string; +begin + result:=myIntToStr(i,dg,' '); +end; + +function myIntToStr(i,dg: longint; fill: string): string; +begin + result:=inttostr(i); + while length(result)<dg do + result:=fill+result; +end; + function max(g1,g2: tGenauigkeit): tGenauigkeit; begin if g1>g2 then result:=g1 |