Question

delphi 菜鸟请教，如何编写多层If then语句

例如，如果1<a<2,那么x=1，y=2，z=3； 如果2<a<3，那么x=0.5，y=0.6，z=0.7；如果3<a<4,那么x=0.7，y=0.8，z=0.9

Answer 1

对于你列举的情形不需要多层if判断。

if (a>1) and (a<2) Then
begin
    x:=1;
    y:=2;
    z:=3;
end;
if (a>2) and (z<3) Then
begin
    x:=0.5;
    y:=0.6;
    z:=0.7;
end;
if (a>3) and (z<4) Then
begin
    x:=0.7;
    y:=0.8;
    z:=0.9;
end;

如果是嵌套的话，一般这样：

var
    score,Rate:integer;
    isPass:Boolean;
const
    Good=100;
if (score>60) Then
begin
    isPass:=True;
    if (score>=90) Then
    begin
        Rate:=Good;
        ShowMessage('优秀！');
    end;
end
else
begin
    isPass:=False;
end;

（我个人习惯，具体可以参见相关教材。）