1:
2:
3:

             *
            / \
 *---------*   *-----------					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

//Polygon 0
0 1.37190000000000E+0001 5.10760000000000E+0001
0 1.37210000000000E+0001 5.10750000000000E+0001
0 1.37220000000000E+0001 5.10730000000000E+0001
0 1.37240000000000E+0001 5.10710000000000E+0001
.........
//Polygon 1
1 1.37500000000000E+0001 5.10540000000000E+0001
1 1.37510000000000E+0001 5.10550000000000E+0001
1 1.37540000000000E+0001 5.10550000000000E+0001
1 1.37570000000000E+0001 5.10570000000000E+0001
.....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

Type
  //GeoPoint speichert Länge/Breite eines Einzelpunktes
  tGeoPoint       = Record
                      LNG       : Double;
                      LAT       : Double;
                    end;

  //GeoPoints ist ein offenes Array von GeoPoints
  tGeoPoints      = Array of tGeoPoint;

  //tIntPoints ist das selbe aber als Array of tPoint
  tIntPoints      = Array of tPoint;

  //===========================================================================
  //PLZShape ist ein Objekt für genau einen Postleitzahlbereich
  //Es enthält die Shapenummer ShapeNo und ein offenes Array aller
  //GeoPoints, die den Umriss des Bereiches bilden.
  //PLZ sind als String und als Integer verfügbar
  //===========================================================================
  tPLZShape       = Class(tObject)
                    Private
                      FShapeNo    : Integer;
                      FPLZ        : String;
                      FPLZi       : Integer;
                      FPoints     : tGeoPoints;
                      FintPoints  : tIntPoints;
                      FLineColor  : tColor;
                      FLineWidth  : Integer;
                      FFillColor  : tColor;

                      FGMMx       : tGMMx;

                      FFilled     : Boolean;
                      FFrameRect  : TRect;
                      FSelected   : Boolean;

                      Function    rdCount:Integer;

                    Public
                      Property    ShapeNo:Integer read FShapeNo write FShapeNo;         //die Shapenummer
                      Property    Points:tGeoPoints read FPoints;                       //die Punkte
                      Property    Count:Integer read rdCount;                           //Anzahl Punkte
                      Property    PLZ:String read FPLZ write FPLZ;                      //PLZ als String
                      Property    PLZi:Integer read FPLZi write FPLZi;                  //PLZ als Integer
                      Property    LineColor:tColor read FLineColor write FLineColor;
                      Property    LineWidth:Integer read FLineWidth write FLineWidth;
                      Property    FillColor:tColor read FFillColor write FFillColor;
                      Property    GMMx:tGMMx read FGMMx write FGMMx;                    //GMMx bildet die Karte ab
                      Property    Filled:Boolean read FFilled write FFilled;
                      Property    FrameRect:TRect read FFrameRect write FFrameRect;
                      Property    Selected:Boolean read FSelected write FSelected;

                      Constructor Create(aShapeNo : Integer; aGMMx : tGMMx);
                      Destructor  Destroy; Override;

                      Procedure   AddGeoPoint(aLNG,aLAT : Double);                      //Punkt hinzufügen

                      Procedure   MakeIntPoints;                                        //Integerpunktwerte
                      Procedure   DrawShape(Canvas : tCanvas);                          //auf Camvas abbilden
                      Procedure   DrawFrameRect(Canvas : tCanvas);                      //Rahmenrechteck zeichnen

                      Function    MouseInRect(x,y : Integer):Boolean;
                    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

//Liefert das Shape zurück, dessen FrameRect-Mittelpunkt der
//Position x/y am nähesten ist.
//dient zur Selektierung der Shapes
Function tPLZShapes.NearestShape(x,y:Integer):tPLZShape;
Var i       : Integer;
    CP      : tPoint;
    Distn   : Double;
    minDist : Double;
begin
  Result  := NIL;
  minDist := MaxInt;
  For i := 0 to High(FPLZShapes) do begin
    If FPLZShapes[i].MouseInRect(x,y) then begin
      //Mittelpunkt des FrameRects
      CP   := CenterPoint(FPLZShapes[i].FrameRect);
      //Abstand zum Mauspunkt
      Distn := Sqrt(Sqr(CP.X-x)+Sqr(CP.Y-y));
      //Shape mit kleinstem Abstand als Ergebnis
      If Distn < minDist then begin
        minDist := Distn;
        Result := FPLZShapes[i];
      end;
    end;
  end;
end;