Komisches Sprachkonstrukt - zwei Rümpfe in Prozedur

[angos]

hmm,

entweder das ist wie erwähnt eine Unter-prozedur/Funktion oder da ist am Ende ein "end;" zuviel und der Source soll direkt ausgeführt werden..

Zitat:

Zitat von nicodex

[...]
In jedem Falle würde ich den-/diejenige(n) zu einer Entwickler-Schulung schicken (und den vorliegenden Quellcode als inakzeptabel einstufen).

Da es sich um einen Vorgänger gehandelt hat, tippe ich mal darauf dass die eine schulung nicht mehr für sinnvoll erachtet haben ;)

Gruß
angos

[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';

[Kedariodakon]

Da fehlt der Rest der Unit, ohne die man schlecht eine Aussage treffen kann, ich würd sagen da fehlen noch ein paar Proceduren-Köpfe und innere Funktionen...

Bye Christian