array verändern

[AlexanderBrade]

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!