Feld (Array) von Shapes

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, tra.

Hier nur ein paar subtile Änderungen an den Code-Zeilen von Markus:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
  // ...
  private
    shapes: array of TShape;
    procedure CreateShapes(n: Word; wc: TWinControl);
  end;

procedure TDemoForm.CreateShapes(n: Word; wc: TWinControl);
begin
  SetLength(shapes, n);
  while n > 0 do
  begin
    Dec(n);
    shapes[n] := TShape.Create(self);
    shapes[n].Parent := wc;
    // ...
  end;
end;

Freundliche Grüße