diff options
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r-- | dateibeziehungen.pas | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 4eea14d..ebcc892 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -566,7 +566,7 @@ begin s:=quellenREs[ii]; if (leftStr(s,1)='^') and (rightStr(s,1)='$') then begin // es handelt sich um einen regex if not quellErsetzung(s,rtFpc,tmpQs,ii) then // regex-Substitution nicht erfolgreich - - tmpQs.delete(tmpQs.count-1) // wird behandelt wie nie passender regex + setLength(idxs[ii],0) // wird behandelt wie nie passender regex else dats.matchAll(s,idxs[ii],true); end @@ -574,12 +574,15 @@ begin delete(s,1,1); delete(s,length(s),1); if not quellErsetzung(s,rtKein,tmpQs,ii) then // Substitution nicht erfolgreich - - tmpQs.delete(tmpQs.count-1) // wird behandelt wie nicht existente Datei + setLength(idxs[ii],0) // wird behandelt wie nicht existente Datei else dats.matchAll(s,idxs[ii],false); end else fehler('Unbekannte Quell-Syntax: '''+s+''' - weder ''"/pfad/zur/Quelle"'' noch ''^/regex/der/auf/Quelle\.passt$''!'); + if length(idxs[ii])=0 then + while tmpQs.count>=max(1,ii) do + tmpQs.delete(tmpQs.count-1); end; begin |