这个算法抄自Graphics 32 的 GR32_Polygons.pas ，大名鼎鼎的开源图形组件，官网地址请大家上导航里找。 function PtInPolygon(const Pt: TPoint; const Points: array of TPoint): Boolean; var I: Integer;