diff options
author | Erich Eckner <git@eckner.net> | 2018-03-23 12:31:27 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-03-23 12:31:27 +0100 |
commit | a36f632ed5e56196b64e8db410a9d396acf90970 (patch) | |
tree | 80ff984cb5c4059942f00c24d0e27797e6f24ec2 /dateibeziehungen.pas | |
parent | 271a0fc7a5bad2cfd7ca00cf3ae4be5722d7a2f8 (diff) | |
download | Make-a36f632ed5e56196b64e8db410a9d396acf90970.tar.xz |
dateibeziehungen.pas: bugfix wenn nichts passt
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 |