diff options
Diffstat (limited to 'typenunit.pas')
| -rw-r--r-- | typenunit.pas | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/typenunit.pas b/typenunit.pas index 036c06e..20155c7 100644 --- a/typenunit.pas +++ b/typenunit.pas @@ -1981,11 +1981,9 @@ var begin if length(vorgaenger)=0 then exit; in_achsen:=vorgaenger[0].achsen; - for i:=1 to length(vorgaenger)-1 do begin - if in_achsen <> vorgaenger[i].achsen then begin + for i:=1 to length(vorgaenger)-1 do + if in_achsen <> vorgaenger[i].achsen then fehler('Vorgänger haben verschiedene Achsen, was bei Agglomeration nicht geht!'); - end; - end; in_xs_ts:=vorgaenger[0].xsteps_tsiz; for i:=1 to length(vorgaenger)-1 do if in_xs_ts <> vorgaenger[i].xsteps_tsiz then |