Zitat von
3_of_8:
Mit einem shl ginge das allerdings noch viel einfacher.
Wie würd das gehen mit shl?
[Edit]
Wenn ich
Bool: array [1..8] of Integer=(1, 2, 4, 8, 16, 32, 64, 128);
in den Var-Teil der Procedure einfüge erhalte ich die Meldung:
[Fehler] Unit1.pas(245): Lokale Variablen können nicht initialisiert werden
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<