有没有检查某个数字，是否在两个浮点数之间的函数（两个数大小未知的）？

[antimicro]

如题

[王集鹄]

Pos(vChar, Format('%f%f', [vReal1, vReal2])); //可不可以？

[westfly]

自己写一个也不难啊。
function IsBetween(Target, Min, Max: Double): Boolean;
var Temp: Double;
begin
if Min > Max then
begin
Temp := Min;
Min := Max;
Max := Temp;
end;
Result := (Target >= Min) and (Target <= Max);
end;

[王集鹄]

唉，把问题理解错误了

to westfly(西翔):
你写的代码风格很标准
建议最好给标识加个前缀
Min和Max是Math单元的两个函数
比如:
function IsBetween(ATarget, AMin, AMax: Double): Boolean;

[王集鹄]

唉，把问题理解错误了

to westfly(西翔):
你写的代码风格很标准
建议最好给标识加个前缀
Min和Max是Math单元的两个函数
比如:
function IsBetween(ATarget, AMin, AMax: Double): Boolean;