判断表达式的真假问题

Question

function(expression:string):boolean
begin
  if Expression then
     showmessage('成功')
  else
     showmessage('失败');
end;

Answer 1

function(expression:string):boolean
begin
  if Expression then
  begin
     showmessage('成功')
     Result:=true;    //你写的是函数，必须得有返回值
  end
  else
  begin
     showmessage('失败'); 
     Result:=false;
  end;
end;

Answer 2

晕，我如果传
Expression='3<2',if expression then这句能通过？？？？

Answer 3

晕
如果Expression是STRING
IF 字符串 THEN
肯定不能能过的!!!!

Answer 4

uses ComObj;function f(Expression: string): Boolean;
var
  vScriptControl: OleVariant;
begin
  vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
  vScriptControl.Language := 'JavaScript';
  if vScriptControl.Eval(Expression) <> 0 then
    ShowMessage(Expression + '成功')
  else ShowMessage(Expression + '失败');
  vScriptControl := NULL;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  f('2<3');
  f('3<2');
end;