この発言は
#00751　kiima           さんの多角形の面積と重心を求める
に対するコメントです



面積０の時の処理を忘れてました

>  gp.x:=Mx/wt;    //重心X座標
>  gp.y:=My/(-wt); //重心Y座標
>  Result := Abs(wt);

    ↓

  Result := Abs(wt);
  if Result <> 0 then begin
    gp.x:=Mx/wt;    //重心X座標
    gp.y:=My/(-wt); //重心Y座標
  else
    gp := PointF(0,0);

                          /*** kiima | CXG00064@nifty.ne.jp ***/

Original document by kiima           氏 ID:(CXG00064)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。