Canvas.Polygon und Dynamisches Array of TPoint

[Sim_Star]

Hallo, ich habe gerade das Problem, dass ich in einer eigenen Klasse ein Dynamisches Array vom Type TPoint erstellt habe.
Dieses möchte ich dann in der Funktion Canvas.Polygon zum Zeichnen übergeben.

Doch beim Compilieren funktioniert es nicht und er bleibt unterhalbe dieser Codezeile hängen.

Delphi-Quellcode:

Type THolder = record
      Polygon : array of TPoint;
      HolderPointCount : integer;
      HolderBrushColor : TColor;
      HolderPenColor : TColor;
      HolderPenWidth : TColor;
end;

...

FHolders : array of THolder;

...

self.FImage.Canvas.Polygon(FHolders[i - 1].Polygon);

das hier ist die Porblemzeile die nicht funktionieren will:

Delphi-Quellcode:

self.FImage.Canvas.Polygon(FHolders[i - 1].Polygon);

aber wieso?

Was mache ich falsch, bzw wo ist hier der Denkfehler?

LG Marco

[DeddyH]

Der Parameter ist ein offenes Array, da kannst Du kein dynamisches übergeben. Siehe auch http://www.delphibasics.co.uk/RTL.asp?Name=Array

[Bummi]

Kompiliert und läuft beides von D7 bis Delphi XE,
ich weiß leider nicht was bei Dir klemmt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type THolder = record
      Polygon : array of TPoint;
      HolderPointCount : integer;
      HolderBrushColor : TColor;
      HolderPenColor : TColor;
      HolderPenWidth : TColor;
end;
var

 i:Integer;
......
......

FHolders : array of THolder;

begin

Canvas.Polygon(FHolders[i - 1].Polygon);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
type
 TP=Array of TPoint;
 var
  p:TP;
begin
  SetLength(p,4);
  p[0].X := 10;
  p[0].Y := 10;
  p[1].X := 100;
  p[1].Y := 10;
  p[2].X := 100;
  p[2].Y := 200;
  p[3].X := 10;
  p[3].Y := 10;
  Canvas.Polygon(p)
end;