实例6 条件分支判断语句if

  该语句就是一个条件判断语句，在写程序时，少不了要与它打交道。它的出现形式，无非就两种情况。

第一种情况：

if 条件表达式 then

begin

  处理语句;

end

else　　　　//else的前一句，不要带分号

begin

  处理语句;

end;

第二种情况：

if 条件表达式1 then

begin

  处理语句;

end

else if 条件表达式2 then

begin

  处理语句;

end

........

else

begin

  处理语句;

end;

  第一种情况就是处理非此及彼的判断，第二种情况是处理多种条件关系的判断。仔细看一看，它就是一个分支处理语句，这种分支比case语句更灵活，自由度更大，表达式中没有类型限制。但是用它作分支在处理速度上，恐怕没有case来得快。

  在设计程序时，对字符串的分支处理往往是最多的，由于case分支处理语句对值有类型限制，因此在无法用case语句进行分支处理的情况下，都可以用if语句作为分支处理语句。比如最常用的字符串分支处理，往往就是采用if语句。

procedure test(Name:string);

begin

  if Name='张三' then

  begin

    ShowMessage('老张');

  end

  else if Name='李四' then

  begin

    ShowMessage('老李');

  end

  else

  begin

    ShowMessage('其他');

  end;

end;