ähnliche case anweisungen vereinfachen

[Flocke]

Das mit dem Power war schon nicht schlecht, kann man aber auch mit einer einfachen Schiebeoperation machen:

Delphi-Quellcode:

code := ord(system[i]) - 64;
speicher[i] := speicher[i] + FarbenToBit(BMP.canvas.Pixels[y, x], 1 shl code, code);