From b04bf5b4f039b79bc981b9b1592db429cefb7a80 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 9 Jan 2018 15:26:44 +0100
Subject: mystringlistunit.pas: tMyStringList.shellSubst neu

---
 mystringlistunit.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

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);
-- 
cgit v1.2.3-70-g09d2