Question

C语言If if 。。 else if 。。 else if 。。 如何在delphi中实现。。

if a>0
printf("A>0");
else if a<0
printf("A<0");
else if(A = 0)
printf("A= 0");
像这样如和用delphi语言写

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=strtoint(Edit1.text);
if a>0 THEN
showmessage('A>0')
else if a<0 THEN
showmessage('A<0')
else if(A = 0) THEN
showmessage('A=0');

end;

Answer 2

先设置一个程序

追问

if a>0
printf("A>0");
else if a<0
printf("A<0");
else if(A = 0)
printf("A= 0");
像这样如和用delphi语言写