Delphi-Quellcode:
if edit55.Visible then
begin
swap(B[19],B[24]); swap(B[13],B[23]); swap(B[7], B[22]); swap(B[1], B[21]);
setlength(B, 20); end;
if edit56.Visible then
begin
swap(B[19],B[24]); swap(B[13],B[23]); swap(B[7], B[22]); swap(B[1], B[21]);
setlength(B, 20);
Mehr ist es nicht! Warum ich das manuell mache, weil ich keine Ahnung habe, wie man es anders anstellen könnte!