Ich bin wieder im Büro, sonst hätte ich ein Abschnitt 1:1 kopiert...
...aber sinngemäss (nicht ganz so banal, aber fast) sieht das in meinem UraltCode etwa so aus:
Delphi-Quellcode:
if i = 1 then value := 1
else if i = 2 then value := 2
else if i = 3 then value := 3;
Also von 1993, ein klein wenig hab' ich inzwischen dazu gelernt
Damals hatte ich wohl gedacht, erst mal prüfen ob es eine Zwei eine Zwei ist.
PS: Einige Funktionen, die sich über mehrere (heutige, 23"-) Bildschirmseiten ziehen sind auch dabei, die kann ich jetzt aber nicht wiedergeben... auch nicht sinngemäß.