条件判断语句

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;

《Delphi应用开发完全手册》p49