epostunit.pas: akzeptiere mehrere, durch Leerzeichen getrennte Dateien

2 files changed, 76 insertions, 68 deletions

diff --git a/epost.lps b/epost.lps
index c1f2145..bbc4285 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="493"/>
-        <CursorPos X="34" Y="507"/>
+        <TopLine Value="52"/>
+        <CursorPos Y="69"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -22,19 +22,19 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="8141"/>
-        <CursorPos X="33" Y="8161"/>
+        <TopLine Value="1380"/>
+        <CursorPos X="11" Y="1378"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="9"/>
-        <TopLine Value="1372"/>
-        <CursorPos X="40" Y="1402"/>
+        <TopLine Value="424"/>
+        <CursorPos Y="439"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -202,123 +202,122 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="226" Column="22" TopLine="208"/>
+        <Caret Line="5571" Column="22" TopLine="5544"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="231" Column="53" TopLine="208"/>
+        <Caret Line="5575" Column="22" TopLine="5547"/>
       </Position2>
       <Position3>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5478" Column="70" TopLine="5450"/>
+        <Caret Line="5579" Column="22" TopLine="5551"/>
       </Position3>
       <Position4>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5479" Column="15" TopLine="5450"/>
+        <Caret Line="5856" Column="22" TopLine="5828"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5504" Column="35" TopLine="5476"/>
+        <Caret Line="5857" Column="88" TopLine="5847"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5505" Column="17" TopLine="5477"/>
+        <Caret Line="343" Column="25" TopLine="325"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5506" Column="25" TopLine="5478"/>
+        <Caret Line="7842" Column="59" TopLine="7837"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5533" Column="25" TopLine="5505"/>
+        <Caret Line="7875" Column="29" TopLine="7862"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5691" Column="53" TopLine="5675"/>
+        <Caret Line="8140" Column="26" TopLine="8129"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5699" Column="43" TopLine="5675"/>
+        <Caret Line="8142" Column="35" TopLine="8129"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5856" Column="18" TopLine="5841"/>
+        <Caret Line="8155" Column="34" TopLine="8129"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="131" Column="23" TopLine="115"/>
+        <Caret Line="8161" Column="33" TopLine="8141"/>
       </Position12>
       <Position13>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="132" Column="23" TopLine="115"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="75" Column="31" TopLine="59"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2198" Column="26" TopLine="2169"/>
+        <Caret Line="8161" Column="33" TopLine="8141"/>
       </Position14>
       <Position15>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="2200" Column="20" TopLine="2183"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1402" Column="40" TopLine="1372"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5563" Column="138" TopLine="5544"/>
+        <Caret Line="2427" TopLine="2410"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5567" Column="22" TopLine="5544"/>
+        <Caret Line="2414" TopLine="2397"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5571" Column="22" TopLine="5544"/>
+        <Caret Line="1423" TopLine="1400"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5575" Column="22" TopLine="5547"/>
+        <Caret Line="1560" Column="12" TopLine="1532"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5579" Column="22" TopLine="5551"/>
+        <Caret Line="1643" TopLine="1612"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5856" Column="22" TopLine="5828"/>
+        <Caret Line="1440" Column="12" TopLine="1412"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5857" Column="88" TopLine="5847"/>
+        <Caret Line="1560" Column="12" TopLine="1532"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="343" Column="25" TopLine="325"/>
+        <Caret Line="1644" Column="12" TopLine="1616"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7842" Column="59" TopLine="7837"/>
+        <Caret Line="1735" Column="12" TopLine="1713"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7875" Column="29" TopLine="7862"/>
+        <Caret Line="1761" Column="12" TopLine="1730"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8140" Column="26" TopLine="8129"/>
+        <Caret Line="1772" Column="12" TopLine="1744"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8142" Column="35" TopLine="8129"/>
+        <Caret Line="1790" TopLine="1765"/>
       </Position27>
       <Position28>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8155" Column="34" TopLine="8129"/>
+        <Caret Line="1791" Column="12" TopLine="1765"/>
       </Position28>
       <Position29>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8161" Column="33" TopLine="8141"/>
+        <Caret Line="2474" Column="8" TopLine="2445"/>
       </Position29>
       <Position30>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="75" Column="31" TopLine="59"/>
+        <Filename Value="epostunit.pas"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
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;