多边形面积代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】多边形面积

作者:知文 / 发布于2016/5/10/ 670

TPoint = record
  X,Y: Double;
end;
 
TPoints = class(TList<TPoint>);
 
function PolyArea(APoly: TPoints): Double;
var
  I: Integer;
begin
  with APoly do
  begin
    if Count < 3 then
      Exit(0);
    Result := First.X * (Items[1].Y - Last.Y);
    for I := 1 to Count - 2 do
      Result := Result + Items[I].X * (Items[I + 1].Y - Items[I - 1].Y);
    Result := Result + Last.X * (First.Y - Items[Count - 2].Y);
    Result := Result * 0.5;
  end;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

.多边形面积
.限定软件使用时间
.获取磁盘空间大小
.窗口文字淡入淡出渐变效果
.创建开机启动项
.检测并枚举系统安装的打印机
.实现保存和读取图片
.字符串分隔函数
.将BMP格式图形转化为JPG格式
.解析FTP地址

可能有用的

.多边形面积
.限定软件使用时间
.获取磁盘空间大小
.窗口文字淡入淡出渐变效果
.创建开机启动项
.检测并枚举系统安装的打印机
.实现保存和读取图片
.字符串分隔函数
.将BMP格式图形转化为JPG格式
.解析FTP地址

知文贡献的其它代码(19)

.格式化CST日期时间(包含英文和中文两种格式的CST时间)
.查询上一条，当前一条，下一条的SQL
.执行批处理文件(.bat),执行数据库相关操作
.asp.net实现文件夹及文件压缩，并实现下载
.判断中英文占位
.从HDFS中读取数据
.存储过程查找数据表中某列存在空值
.创建有分区的表
.图片超过指定大小后等比例压缩图片
.退出按钮