ähnliche case anweisungen vereinfachen

[heiopei]

hallo,
ich denke du musst statt 2 * (ord(system[i]) -64) eine Potenz berechnen. d.h. du musst 2 mit dem entspr. Faktor potenzieren, z.b. 2^1 = 2, 2^2 = 4 2^3 = 8...
also sowas wie Power(ord(system[i]) - 64) - die syntax von power weiss ich jetzt nicht mehr, kann man
aber leicht in der hilfe nachschaun

dann kannst du natürlich in einer if-schleife prüfen, ob ord(system[i]) - 64). im gewünschten bereich liegt, und dann
speicher[i] := speicher[i] + FarbenToBit(BMP.canvas.Pixels[y,x], Power(ord(system[i]) -64),
ord(system[i]) -64);
schreiben.

mfg,
heiopei