diff options
| -rw-r--r-- | mystringlistunit.pas | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/mystringlistunit.pas b/mystringlistunit.pas index 3f7fdf4..46862aa 100644 --- a/mystringlistunit.pas +++ b/mystringlistunit.pas @@ -45,6 +45,7 @@ type procedure addWithLineBreaks(s: string); function last: string; procedure appendTo(wen: tStringList; maxLen: int64; praeludium,fuge,coda: string); + procedure shellSubst(env: tMyStringList); end; procedure _del(var s: string; p,c: longint); inline; // identisch zu delete(s,p,c) -- lediglich um delete innerhalb von tMyStringList verfügbar zu haben @@ -685,6 +686,14 @@ begin end; end; +procedure tMyStringList.shellSubst(env: tMyStringList); +var + i: longint; +begin + for i:=0 to count-1 do + self[i]:=systemunit.shellSubst(self[i],env); +end; + // allgemeine Funktionen ******************************************************* procedure _del(var s: string; p,c: longint); |