由于编程的需要，要以简易的方法计算屏幕上两点距离，可以出现误差，但代码性能要很高，在网上找了很多资料，终于在CSDN上找到了一篇文章：
http://blog.csdn.net/phoenixsh/archive/2006/07/31/1005157.aspx
由于我的高数不好，文章的很多地方看不懂，我利用文章结尾归纳的公式设计了代码，但是误差似乎大了一点，文章中指出可以通过调整公式来控制误差，不知是否有高人可以看得懂这篇文章，归纳出误差小一点的公式？只要在屏幕范围1024*768内，误差尽量小就可以啦，谢谢啦！
核心代码：
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,n : Integer;
begin
// 假设直角三角形的两条直角边为a和b，并且a <= b，
// 下表总结了近似公式。
//
// 公式 修正值 标准差 最大误差 最大误差位置（度数）
//
// c=a>>1-a>>3+b-b>>5 0 2.7% 5.0% 45
// c=a>>1-a>>4+b-b>>4 0 2.7% 6.3% 0
// c=a>>2+a>>4+b+1 1 3.6% 7.2% 45
// c=a>>2+b 0 4.2% 11.6% 45
//
//
self.Edit5.Text:=Format('P1(%d,%d)',[StrToIntDef(self.Edit1.Text,0),StrToIntDef(self.Edit2.Text,0)]);
self.Edit6.Text:=Format('P2(%d,%d)',[StrToIntDef(self.Edit3.Text,0),StrToIntDef(self.Edit4.Text,0)]);
a:=abs(StrToIntDef(self.Edit1.Text,0)-StrToIntDef(self.Edit3.Text,0));
b:=abs(StrToIntDef(self.Edit2.Text,0)-StrToIntDef(self.Edit4.Text,0));
if a>b then
begin
n:=a; a:=b; b:=n;
end;
//c=sqrt((a*a)+(b*b))
self.Edit7.Text:=FloatToStr(sqrt((a*a)+(b*b)));
//c=a>>1-a>>3+b-b>>5
self.Edit8.Text:=IntToStr((a shr 1)-(a shr 3)+b-(b shr 5));
//c=a>>1-a>>4+b-b>>4
self.Edit9.Text:=IntToStr((a shr 1)-(a shr 4)+b-(b shr 4));
//c=a>>2+a>>4+b+1
self.Edit10.Text:=IntToStr((a shr 2)+(a shr 4)+b+1);
//c=a>>2+b
self.Edit11.Text:=IntToStr((a shr 2)+b);
end;
我编写的测试程序项目：
mHELFgtr.zip
