r : extended
d : integer;r := Sqrt(sqr(abs(MovePt.X-Origin.X))+sqr(abs(MovePt.Y-Origin.Y)));d := strtoint(floattostr(r)); //有没有更好的方法
d : integer;r := Sqrt(sqr(abs(MovePt.X-Origin.X))+sqr(abs(MovePt.Y-Origin.Y)));d := strtoint(floattostr(r)); //有没有更好的方法
d := Trunc(r);2. Round函数
d := Round(r);