diff options
Diffstat (limited to 'mystringlistunit.pas')
| -rw-r--r-- | mystringlistunit.pas | 9 |
1 files changed, 9 insertions, 0 deletions
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 ... |