delphi中，可以将运算符带入函数中，从函数中直接调用该运算符进行比较吗？

[geminii]

比如
function fun(AOperator: string):integer;
var
i,j: integer;
begin
if i AFunciotn(AOperator) j then result := 1
else result := -1;
end;
这里的AOperator是一个运算符，如 >,<,= 等等.
AFunction是一个能将AOperator转换成运算符的函数，有这样的函数吗？

[geminii]

up

[afeisky]

没有吧.你用case语句来实现吧.

[chechy]

下列语言都不可以：Pascal,C,C++,Basic,Java,C#。
你可以通过传递一个函数来解决。或者就像楼上说的，用Case。

[geminii]

那就自己写个函数吧。
Function Fun_Compare(Ad_a: double; Ad_b: double; As_Op: string; Ai_precision: longint) : Boolean ;
begin
if As_Op= '=' then
if Round(Ad_A*Ai_precision) = Round(Ad_b*Ai_precision) then
Result := true
else
result := False;
if As_Op= '>' then
if Round(Ad_A*Ai_precision) > Round(Ad_b*Ai_precision) then
Result := true
else
result := false;
if As_Op= '<' then
if Round(Ad_A*Ai_precision) < Round(Ad_b*Ai_precision) then
Result := true
else
result := false;
if As_Op= '<>' then
if Round(Ad_a*Ai_precision) <> Round(Ad_b*Ai_precision) then
Result := true
else
result := false;
if As_Op= '>=' then
if Round(Ad_A*Ai_precision) >= Round(Ad_b*Ai_precision) then
Result := true
else
result := false;
if As_Op= '<=' then
if Round(Ad_A*Ai_precision) <= Round(Ad_b*Ai_precision) then
Result := true
else
result := false;
end;

[x_qiang]

我曾经有过做法,用一个query,传到sql里面运算,很方便