Intervallausrollen neu in lowlevelunit.pas

2 files changed, 23 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
diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 9693fca..65f5c36 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -334,6 +334,15 @@ begin
         end;
         delete(i);
 
+        u:=s;
+        s:='';
+        while length(u)>0 do begin
+          v:=erstesArgument(u);
+          if pos('..',v)<>0 then v:=intervallAusrollen(v);
+          s:=s+' '+v;
+        end;
+        s:=trim(s);
+
         while length(s)>0 do begin  // Schleifenzähler laufen lassen
           u:=erstesArgument(s);
           for j:=0 to SchleifenInhalt.Count-1 do begin  // Schleifenkörper ...