Intervallausrollen neu in lowlevelunit.pas

1 files changed, 14 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 7115952..27d7d85 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -93,6 +93,7 @@ function mirrorBits(w: word): word; overload;
 function mirrorBits(b: byte): byte; overload;
 
 function zusammenfassen(s1,s2: string): string;
+function intervallAusrollen(s: string): string;
 
 var
   base64Chars: array[0..63] of char;
@@ -815,6 +816,19 @@ begin
  else raise exception.create('Ich kann '''+s1+''' und '''+s2+''' nicht zusammenfassen!');
 end;
 
+function intervallAusrollen(s: string): string;
+var
+  i: longint;
+begin
+  i:=strtoint(erstesArgument(s,'..'));
+  result:='';
+  while i<=strtoint(s) do begin
+    result:=result+' '+myinttostr(i,length(s),'0');
+    inc(i);
+  end;
+  result:=trim(result);
+end;
+
 var b: byte;
 
 begin