mystringlistunit.pas: tMyStringList.shellSubst neu

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);