jeenma  

2019年12月19日

摘要: for i := 0 to PtCount - 1 do begin for j := 0 to PtCount-i - 2 do begin TempP:=Pts[j]; if Pts[j].Y < Pts[j+1].Y then begin Pts[j]:= Pts[j+1]; Pts[j+1] 阅读全文
posted @ 2019-12-19 14:24 jeenma 阅读(266) 评论(0) 推荐(0) 编辑