Auf Dynamisch erstellte Labels zugreifen

[Mavarik]

hmm

Du erzeugst 6561 Labels!

Frank

[chrisw]

Das sind ja 6561 Label, die Du erzeugst ! Für Sudoko ein bisschen zu viel, oder?


Davon legst du aber nur 81 im Array ab !


Was willst Du denn damit ?

[150gozilla]

Zitat von chrisw:

Das sind ja 6561 Label ! Für Sudoko ein bisschen zu viel, oder?

Das stimmt.

Wie könnte ich die Schleifen am besten verschachteln ?

[chrisw]

Die Schleife mit dem index2 einfach weglassen und einen Zähler in der inneren Schleife von 1 bis 81 zählen (inc())

[Mavarik]

Zitat von 150gozilla:

Wie könnte ich die Schleifen am besten verschachteln ?

Delphi-Quellcode:

 SetLength(Labels,81); 
 index2 := 0;

  for i:=1 to 9 do 
  begin 
   for j:= 1 to 9 do 
   begin 
     Labels[index2]:=TLabel.Create(self); 
     Labels[index2].Top  := ((i-1)* lg)+13; 
     Labels[index2].Parent:= Form1; 
     Labels[index2].AutoSize := false; 
     Labels[index2].Font.Size := 12; 
     Labels[index2].Left := 10 + lg *(j-1); 
     Labels[index2].Height:= lg; 
     Labels[index2].Width:=lg; 
     Labels[index2].Caption:= IntToStr(i)+','+(IntToStr(j)); 
     Labels[index2].Alignment := tacenter; 
    inc(index2);
   end;
  end;

Frank

[150gozilla]

Zitat von Mavarik:

Zitat von 150gozilla:

Wie könnte ich die Schleifen am besten verschachteln ?

Delphi-Quellcode:

 SetLength(Labels,81); 
 index2 := 0;

  for i:=1 to 9 do 
  begin 
   for j:= 1 to 9 do 
   begin 
     Labels[index2]:=TLabel.Create(self); 
     Labels[index2].Top  := ((i-1)* lg)+13; 
     Labels[index2].Parent:= Form1; 
     Labels[index2].AutoSize := false; 
     Labels[index2].Font.Size := 12; 
     Labels[index2].Left := 10 + lg *(j-1); 
     Labels[index2].Height:= lg; 
     Labels[index2].Width:=lg; 
     Labels[index2].Caption:= IntToStr(i)+','+(IntToStr(j)); 
     Labels[index2].Alignment := tacenter; 
    inc(index2);
   end;
  end;

Frank

Dankeeeeeeee, das klappt 100%ig.

Danke an alle die mir geholfen haben
Hab wieder was gelernt =)
Danke nochmal =)

[chrisw]

Wobei hier ein dynamisches Array eigentlich keinen sonderlichen Sinn verfolgt (ein statisches hätt's auch getan, am besten 2 dimensional (array [1..9,1..9] of TLabel))
a la

Delphi-Quellcode:

const MaxWidthHeight = 9;
...
Labels : array [1..MaxWidthHeight ,1..MaxWidthHeight ] of TLabel;
....

for i:=1 to MaxWidthHeight  do 
  begin 
   for j:= 1 to MaxWidthHeight  do 
   begin 
     Labels[i,j]:=TLabel.Create(self); 
     Labels[i,j].Top  := ((i-1)* lg)+13; 
     Labels[i,j].Parent:= Form1; 
     Labels[i,j].AutoSize := false; 
     Labels[i,j].Font.Size := 12; 
     Labels[i,j].Left := 10 + lg *(j-1); 
     Labels[i,j].Height:= lg; 
     Labels[i,j].Width:=lg; 
     Labels[i,j].Caption:= IntToStr(i)+','+(IntToStr(j)); 
     Labels[i,j].Alignment := tacenter; 
   end; 
  end;

Ist mglw später einfacher anzusprechen !!!

[hoika]

Hallo,

noch zum Zugriff.
Beim Erzeugen kann man ja Namen selber vorgeben

Label.Name:= 'Label_Suduko_1'.

Der Zugriff erfolgt dann über TLabel(FindComponent('Label_Suduko_1'))


Heiko