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

代码语言

代码分类

【Delphi】多边形面积

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

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中读取数据
.存储过程查找数据表中某列存在空值
.创建有分区的表
.图片超过指定大小后等比例压缩图片
.退出按钮