- 博客(3)
- 收藏
- 关注
原创 delphi中single型数据向byte数组转换
在论坛中经常遇到single型数据向byte数组转换的问题,解决这个问题可以使用move函数和关键字absolute。1.move函数var f:single; b:array[0..3] of byte;begin f:=1.23; move(f,b,sizeof(f));end;2.关键字absolutevar f:single; b:array[0..3]
2008-10-29 09:37:00 2535
原创 Delphi实现直线和圆的最小二承法拟合
在工程计算中,经常会遇到数据的拟合处理,拟合处理用的最多的是最小二承法。我曾经做过一个数据处理的软件,其中用到了直线和圆的最小二承法拟合算法,是用delphi实现的,现将源代码贴出来。 一 直线拟合{直线的方程为形式:y=k*x+b ,x=c;X,y为需要处理的数据}function FitLine(x,y: array of double;len: i
2008-10-17 09:19:00 2635 2
原创 保证程序只运行一个实例(delphi)
许多时候我们希望程序只有一个实例在运行,而不是多个实例同时运行。 其实完成这一功能有很多种方法,我把自己知道的几种方法简单介绍一下。一 使用全局原子program Project1;uses windows, Forms, Dialogs, Unit1 in Unit1.pas {Form1};{$R *.res}c
2008-10-16 10:17:00 2687 2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人