Viele ON's sind wie ein if-then-else-if-then-
else und das letzte ELSE ist das besagte ELSE.
PS: ELSE gibt es dort nur, wenn vorher ein ON steht.
Jupp, entweder ON oder nicht ... gemischt geht nicht,
aber da
on e: irgendwas do begin ... end
einem
if ExceptObject is irgendwas then begin var E := ExceptObject as irgendwas; ... end;
entspricht, kann man das auch selber machen.
Ich schiebe ELSE "immer" auf Höhe vom Beginn des öffnenden Befehls (IF), bzw. der gleichwertigen Geschwister (im CASE und EXCEPT).
Genauso wie beim END, wobei ich hier END-ELSE-BEGIN in eine Zeile schiebe (BEGIN hinter den Befehl)
Aber jedem das Seine.
Es gibt nur Einwas, wo das alles nicht hilft und man immer eine Ausnahme machen muß .... Beim fehlenden End in den varianten Teilen des Records.
Dieses End sollte man endlich mal reparieren ... man kann das nicht ordentlich verschachteln und vorallem nix dahinter legen, wie in jeder anderen Sprache auch.