Foros Club Delphi - Regiones y arreglos dinámicos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Regiones y arreglos dinámicos (https://www.clubdelphi.com/foros/showthread.php?t=13884)

Regiones y arreglos dinámicos

Un saludo a todos, estoy tratando de hacer un programa que me cree una región a partir de una serie de puntos que le indique en tiempo de ejecución, estoy usando la función

Código Delphi [-]var
  RG : HRGN;
begin
  RG := CreatePolygonRgn(PT,High(PT),ALTERNATE);
//PT es un arreglo de TPoint
end;

Resulta que necesito que este arreglo PT sea dinámico puesto que en tiempo de diseño no se la cantidad de puntos que va a tener mi región.

El hecho es que si el arreglo es estático lo hace perfecto, pero esto mismo con el arreglo dinámico no crea la región, ya comprobé que el arreglo dinámico se crea bien, y con los valores correctos.

No admite esta función arreglos dinámicos???

Alguna idea de como hacer lo que quiero???

De antemano mil gracias

Un saludo

Cita:

Empezado por yusnerqui

Alguna idea de como hacer lo que quiero???

Sí.

En lugar de

Código Delphi [-]RG := CreatePolygonRgn(PT, High(PT), ALTERNATE);

pon

Código Delphi [-]RG := CreatePolygonRgn(Pointer(PT)^, Length(PT), ALTERNATE);

Cuando usas un arreglo dinámico, PT en realidad no es un arreglo sino un apuntador al arreglo por lo que hay que pasar la dirección a la que apunta.

Por cierto, usa Length y no High ya que High = Length - 1 (los arreglos dinámicos siempre están basados en 0).

// Saludos

Mil gracias Román, funciona a la perfección.

Cita:

Empezado por Roman

Por cierto, usa Length y no High ya que High = Length - 1 (los arreglos dinámicos siempre están basados en 0).

:confused: que pena, ojalá y este hilo no lo lea mi jefe, pues me echaría por ignorante.

:D Gracias nuevamente Roman y un saludo.