löschen sich komponenten ?

[der t0r]

nun gut.. ^^ also die 21 labels werden erzeugt:

Delphi-Quellcode:

for i:=1 to 3 do begin
  for j:= 1 to 7 do begin
    case i of
      1:arr1[j]:=TLabel.Create(Form1);
      2:arr2[j]:=TLabel.Create(Form1);
      3:arr3[j]:= TLabel.Create(Form1);
    end;
    end;

neu geordnet:

Delphi-Quellcode:

if rblinks.checked then begin
  for i:= 1 to 21 do begin
    case i of
    1..7:stapel[i]:=arr2[i];
    8..14:stapel[i]:=arr1[i-7];
    15..21:stapel[i]:=arr3[i-14];
    end;
  end;

Delphi-Quellcode:

for j:=1 to 7 do begin
  for i:=1 to 3 do begin
       case i of
      1: arr1[j]:=stapel[j*3-2];
      2: arr2[j]:=stapel[j*3-1];
      3: arr3[j]:=stapel[j*3];
      end;
  end;
end;

dann versuche ich sie wieder zu positionieren.. dann kommt das problem...