AssignFile(F,'e:\地图数据/绿地.MIF');
  Reset(F);       //只读打开
  Readln(F,penwidth,pentype,pencolor);
  Readln(F,siBrushPattern,lForeColor,lBackColor);
    R:=round(pencolor/65536);
        G:=round((pencolor-R*65536)/256);
        B:=pencolor-R*65536-G*256;

    R1:=round(lForeColor/65536);
        G1:=round((lForeColor-R1*65536)/256);
        B1:=lForeColor-R1*65536-G1*256;




 while not Eof(F) do
 begin
    readln(F);
    readln(F,points);
   readln(F,xArray[0],yArray[0]);
   x:=round((xArray[0]-mapleftx)*1000000*setcshx);
   y:=round((yArray[0]-maprighty)*1000000*setcshy);

   image1.Canvas.MoveTo(x,y);
  { readln(F,xArray[0],yArray[0]);
   x:=round((xArray[0]-mapleftx)*1000000*setcshx);
   y:=round((yArray[0]-maprighty)*1000000*setcshy);


   xArray[0]:=116.88365;
   yArray[0]:=36.64903;


    x:=round((xArray[0]-mapleftx)*1000000*setcshx);
    y:=round((yArray[0]-maprighty)*1000000*setcshy);
   image1.Canvas.Ellipse((x-100),(y-100),(x+100),(y+100));
     }


 for i:=1 to points-1 do
   begin
   readln(F,xArray[i],yArray[i]);
    x:=round((xArray[i]-mapleftx)*1000000*setcshx);
    y:=round((yArray[i]-maprighty)*1000000*setcshy);

      pointone[i].X:=x;
      pointone[i].Y:=y;
      //  MyPoints[0]:=Point(200,100);


     // image1.Canvas.LineTo(x,y);


    end;
  // pointone[0]:=pointone[points-1];
   image1.Canvas.Pen.Color:=RGB(R,G,B);
   image1.Canvas.Pen.Width:=penwidth;
   image1.Canvas.Brush.Color:= RGB(R1,G1,B1);
   image1.Canvas.Polygon(pointone);
    readln(F);
    readln(F);
    readln(F);
    { for i:=0 to points-1 do
      begin
        // pointone[i]:=point(x,y);
        pointone[i].X:=0;
        pointone[i].Y:=0;
       end; }
end;

      CloseFile(F);

在线等待

怎么发到这个版块来了？

错了，不好意思