problem mit komponentenposition

[der t0r]

ich hab 21 labels in 3 arrays auf der Form , wenn ich sie nun aber

Code:

for k:=1 to 7 do begin
    with arr1[k] do begin
    left:=100;
    top:= k*50;
    end;
    with arr2[k] do begin
    left:=200;
    top:= k*50;
    end;
    with arr3[k] do begin
    left:=300;
    top:= k*50;
    end;

neu gruppieren will kommt irgend eine ziemlich miese Fehlermeldung... (modul bla).. warum ?

[Christian Seehase]

Moin der t0r,

wie hast Du denn arr1 usw. deklariert?

[Aenogym]

wie sieht denn dein array aus?
und stoppt die exception an einer bestimmten code-zeile?

[der t0r]

also...
fehler der klasse EAccesviolation...
meine arrays sind array[1..7] of Tlabel...
und er meckert direkt bei der ersten Zeile...

[Keldorn]

und wo und wie erzeugst du die label?

[der t0r]

in form create...

Code:

var Stapel:array[1..21] of TLabel;arr1:array[1..7] of Tlabel;arr2:array[1..7] of Tlabel;arr3:array[1..7] of Tlabel;
i,j,k : integer;
begin
for i:=1 to 3 do begin
  for j:= 1 to 7 do begin
    if i= 1 then
      arr1[j]:=TLabel.Create(Form1);
    if i = 2 then
      arr2[j]:=TLabel.Create(Form1);
    if i = 3 then
      arr3[j]:= TLabel.Create(Form1);
    end;
end;
  for k:=1 to 7 do begin
    with arr1[k] do begin
    caption:=inttostr(k*3-2);
    Parent:=Form1;
    height:=100;
    width:=50;
    left:=100;
    top:= k*50;
    end;
    with arr2[k] do begin
    caption:=inttostr(k*3-1);
    Parent:=Form1;
    height:=200;
    width:=50;
    left:=200;
    top:= k*50;
    end;
    with arr3[k] do begin
    caption:=inttostr(k*3);
    Parent:=Form1;
    height:=100;
    width:=50;
    left:=300;
    top:= k*50;
    end;
  end;

und dann ordne ich sie auf click neu an in den arrays... nun will ich das aber die neue ordnung auch wieder enue positionen hervorruft...

[der t0r]

die neuordnung is so bevor einer fragt ^^ :

Code:

if rb1.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;
      end;