Hi,

I have a problem typecasting Verteces in Delphi. In C# it is really simple:

Code:

    object[] vertices = shape.Vertices as object[];
    foreach (object vertex in vertices)
        loc = vertex as Location;

But in Delph the vertex as Location gives me a compiler error.

Code:

var
   Zone: Shape;
   Vertices: array of OLEVariant;
   Vertex: OLEVariant;
   n, Len: integer;
   Loc: Location;
begin
   Zone := MP.Map.Shapes.AddDrivetimeZone(LocSonal, 15 / 1440);
   Vertices := Zone.Vertices;
   for n := Low(Vertices) to High(Vertices) do begin
      Vertex := Vertices[n];
      Loc := Vertex as Location;

Last line give me compiler error. Any idea's ?

Hi,

Found the problem. In Delphi when you typecast a variant to an interface then it has to be first typecast to IUnknown or IDispatch. Like this:

Code:

   Loc := IDispatch(Vertex) as Location;