Dass es mit den breaks funktioniert ist aber eigentlich Zufall, darauf darfst du nichts aufbauen.
Hast du den einen Break hinterm case?
Delphi-Quellcode:
case index of
0: Result := Seg1 + Seg2;
1: Result := Seg1 - Seg2;
2: Result := Seg1 * Seg2;
3: Result := Seg1 / Seg2;
end;
break;
Den brauchst du schon noch, sonst hast du die gleiche Situation wie vorher nur mit mit anderen Operanden.