Delphi情况怎么写

Question

  有变量X，假设X = 0 则输出 “X不能等于零，错误” 返回1begin
  if X = 0 
  then showmassage('X不能等于零，错误!')
  return 1
end;我是新手，我写的这个有什么错误吗，麻烦各位老鸟给看看

Answer 1

begin
  if X = 0  then
    showmassage('X不能等于零，错误!')
  else
    x:=1;//不知道你指的返回1是什么意思， 
end;

Answer 2

Result := 1
返回用Result，这不是C/C++

Answer 3

完整的代码：function test(x:integer):integer;
begin
  if X = 0    then
      ShowMessage('X不能等于零，错误!');
  result:=1;
//或test:=1;
end;

Answer 4

function test(x:integer):integer;
begin
  if X = 0 then
  beign
    ShowMessage('X不能等于零，错误!');
    result := 1;
  end;
end;

Answer 5

Return 1 是否对应Delphi的True?