myIntToStr neu in lowlevelunit.pas

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