array of TShape

[inherited]

HERZLICH WILLKOMMEN IN DER DELPHI-PRAXIS

Zitat von nobody_anfänger:

begin
for i:=1 to 47 do
begin
SKreis[i].visible:=true;
SKreis[i].width:=30;
Skreis[i].Height:=30;
SKreis[i].brush.color:=clred;
SKreis[i].Top:=i;
SKreis[i].left:=i;
end;
end;

1. lässt sich das folgendermaßen abkürzen:
SKreis[i].SetBounds(i,i,30,30) 2. Hast du wahrscheinlich vergessen die Shapes zu erzeugen, am anfang muss
SKreis[i]:= TShape.Create; stehen

Also am ende dann so:

Delphi-Quellcode:

for i:=1 to 47 do
  begin
    SKreis[i]:= TShape.Create;
    SKreis[i].SetBounds(i,i,30,30);
    SKreis[i].brush.color:=clred;
  end;