Ich habe es jetzt so geschrieben:
Delphi-Quellcode:
if edit55.Visible = true then
begin
swap(B[19],B[24]); swap(B[13],B[23]); swap(B[7], B[22]); swap(B[1], B[21]);{hier liegt irgendein Problem}
setlength(B, 20); end;
if edit56.Visible = true then
begin
{usw}
Es klappt noch nicht ganz!