1 files changed, 37 insertions, 28 deletions
diff --git a/epostunit.pas b/epostunit.pas
index 9c52d67..5569338 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -1151,7 +1151,7 @@ end;
 function tWerte.ermittleExterneInputParameter(f: tMyStringList; out dateien: tGenerischeInputDateiInfoArray): boolean;
 // Parameter ermitteln, die in der Config-Datei stehen
 var
-  s:               string;
+  s,t:             string;
   ne,be,maxAmp:    extended;
   vorlagen:        tInputDateiInfoVorlagen;
   g:               textfile;
@@ -1327,41 +1327,50 @@ begin
       continue;
     end;
     if istDasBefehl('PhaseSpace-Datei:',s,bekannteBefehle,true) then begin
-      if fileExists(s) then begin
-        setLength(dateien,length(dateien)+1);
-        dateien[length(dateien)-1]:=tPhaseSpaceInputDateiInfo.create(vorlagen.phaseSpaceVorlage);
-        dateien[length(dateien)-1].name:=s;
-        continue;
-      end;
-      if not findeAlleDateien(s,dateien,vorlagen.phaseSpaceVorlage) then begin
-        aufraeumen;
-        exit;
+      while s<>'' do begin
+        t:=erstesArgument(s);
+        if fileExists(t) then begin
+          setLength(dateien,length(dateien)+1);
+          dateien[length(dateien)-1]:=tPhaseSpaceInputDateiInfo.create(vorlagen.phaseSpaceVorlage);
+          dateien[length(dateien)-1].name:=t;
+          continue;
+        end;
+        if not findeAlleDateien(t,dateien,vorlagen.phaseSpaceVorlage) then begin
+          aufraeumen;
+          exit;
+        end;
       end;
       continue;
     end;
     if istDasBefehl('SpaceTime-Datei:',s,bekannteBefehle,true) then begin
-      if fileExists(s) then begin
-        setLength(dateien,length(dateien)+1);
-        dateien[length(dateien)-1]:=tSpaceTimeInputDateiInfo.create(vorlagen.spaceTimeVorlage);
-        dateien[length(dateien)-1].name:=s;
-        continue;
-      end;
-      if not findeAlleDateien(s,dateien,vorlagen.spaceTimeVorlage) then begin
-        aufraeumen;
-        exit;
+      while s<>'' do begin
+        t:=erstesArgument(s);
+        if fileExists(t) then begin
+          setLength(dateien,length(dateien)+1);
+          dateien[length(dateien)-1]:=tSpaceTimeInputDateiInfo.create(vorlagen.spaceTimeVorlage);
+          dateien[length(dateien)-1].name:=t;
+          continue;
+        end;
+        if not findeAlleDateien(t,dateien,vorlagen.spaceTimeVorlage) then begin
+          aufraeumen;
+          exit;
+        end;
       end;
       continue;
     end;
     if istDasBefehl('Trace-Datei:',s,bekannteBefehle,true) then begin
-      if fileExists(s) then begin
-        setLength(dateien,length(dateien)+1);
-        dateien[length(dateien)-1]:=tTraceInputDateiInfo.create(vorlagen.traceVorlage);
-        dateien[length(dateien)-1].name:=s;
-        continue;
-      end;
-      if not findeAlleDateien(s,dateien,vorlagen.traceVorlage) then begin
-        aufraeumen;
-        exit;
+      while s<>'' do begin
+        t:=erstesArgument(s);
+        if fileExists(t) then begin
+          setLength(dateien,length(dateien)+1);
+          dateien[length(dateien)-1]:=tTraceInputDateiInfo.create(vorlagen.traceVorlage);
+          dateien[length(dateien)-1].name:=t;
+          continue;
+        end;
+        if not findeAlleDateien(t,dateien,vorlagen.traceVorlage) then begin
+          aufraeumen;
+          exit;
+        end;
       end;
       continue;
     end;