From 741166f4b077ca8067611ab933fe0289d60d00cd Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Fri, 13 Nov 2015 13:50:03 +0100 Subject: Intervallausrollen neu in lowlevelunit.pas --- mystringlistunit.pas | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'mystringlistunit.pas') 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 ... -- cgit v1.2.3-70-g09d2