Button Captions in array

[Muetze1]

Nur mal so als Alternative mit nur einer Schleife:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  i: integer;
begin
  for i:= 0 to 8 do
  begin
    BoxArray[succ(i div 3)][succ(i mod 3)]:= TCheckBox.Create(Self);
    BoxArray[succ(i div 3)][succ(i mod 3)].Parent:= Form1;

    BoxArray[succ(i div 3)][succ(i mod 3)].Top := succ(i div 3) * 17;
    BoxArray[succ(i div 3)][succ(i mod 3)].Left := succ(i mod 3) * 17;
  end;
end;

Nur zur Vielfalt des Codes publiziert...