Komisches Sprachkonstrukt - zwei Rümpfe in Prozedur

[BloodySmartie]

@angos:

Es ist in der Tat so. Man sollte einmal sehen, wie der Mann ein XML-Document geparst hat, welches von einer Funktion zurückgeliefert wird:

Delphi-Quellcode:

{
Dabei wird auf einen Fehlercode gecheckt. Mögliche Fehlercodes:
0
100
101
102

Das Ganze kommt per XML in der Form <StatusCode>x</StatusCode>.
Und nun ratet mal, was er da unten im Code macht...
}

if Copy(LottoCode,1,3)='e>0' then LottoStatus:='1';
if Copy(LottoCode,1,3)='100' then LottoStatus:='2';
if Copy(LottoCode,1,3)='101' then LottoStatus:='3';
if Copy(LottoCode,1,3)='102' then LottoStatus:='4';