diverses

1 files changed, 13 insertions, 2 deletions

diff --git a/tools.pas b/tools.pas
index e07be8b..63d88cb 100644
--- a/tools.pas
+++ b/tools.pas
@@ -31,6 +31,7 @@ type
     function gleicheNamenWie(dmd: tDateienMitDaten): boolean;
     function toString: string; override;
     procedure append(dmd: tDateienMitDaten);
+    function toMyStringList: tMyStringList;
   end;
 
 function min(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
@@ -123,7 +124,16 @@ begin
   end;
 end;
 
-// allgemeine Funktionen
+function tDateienMitDaten.toMyStringList: tMyStringList;
+var
+  i: longint;
+begin
+  result:=tMyStringList.create;
+  for i:=0 to count-1 do
+    result.add(items[i].name);
+end;
+
+// allgemeine Funktionen *******************************************************
 
 function min(a1,a2: tAktualitaet): tAktualitaet;
 begin
@@ -260,7 +270,8 @@ begin
     (exe='epstopdf') or
     (exe='latexmk') or
     (exe='mpost') or
-    (exe='pdflatex') then
+    (exe='pdflatex') or
+    (exe='sed') then
     exit
   else begin
     regex:='';