If then else
begin
if 条件 then
语句块
else
语句块;
end;
//----------------------------------------或
begin
if 条件1 then begin
语句块1;
end else if 条件2 then begin
语句块2;
end else if 条件3 then begin
语句块3;
end else begin
语句块4;
end;
case of
function GetVlaue(itemp:integer):integer;
begin
case itemp of
1:Result:=20;
2:Result:=30:
3:Result:=10;
4,20..30:Result:=50;
end;
//----------------------------------------或
function GetString(cTemp:char):string;
begin
case cTemp of
'A'..'F': Result:='A与F之间';
'G'..'N': Result:='G与N之间';
end;
标签:语句,case,begin,判断,end,else,Result,条件 From: https://www.cnblogs.com/DQ-MINE/p/17131820.html《Delphi应用开发完全手册》p49