Quellcode reduzieren

[borstenei]

Oder benutzt ComponentCount

Delphi-Quellcode:

  for y:= 0 to ComponentCount -1 do       //reine Weltidee
  if (Components[y] is TABLed) then
  begin
   inc(i);
   x2 := xm + round(frund * 0.5* sin(i*15* pi / 180));
   y2 := ym - round(frund * 0.5* cos(i*15* pi / 180));
   TABLed(Components[y]).Left := x2;
   TABLed(Components[y]).Top  := y2;
  end;

reduziert auch unheimlich Schreibarbeit