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...