diff options
| author | Erich Eckner <git@eckner.net> | 2015-11-13 13:50:03 +0100 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-11-13 14:34:58 +0100 |
| commit | 741166f4b077ca8067611ab933fe0289d60d00cd (patch) | |
| tree | f8ef1a76e909e4e4fbcadc41515186a0854b94a5 /mystringlistunit.pas | |
| parent | 21c9c0d09c62b2c756cc29c905717b3f0d55bbac (diff) | |
| download | units-741166f4b077ca8067611ab933fe0289d60d00cd.tar.xz | |
Intervallausrollen neu in lowlevelunit.pas
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 ... |