sample - case statement (2).pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

unit Unit1;

const
  V = 1;

function caseme(Param: integer): string;
begin
  case Param of
    V:
      Result := '1 selected';
    1 + 1:
      Result := '2 selected';
    else
      Result := '"else" selected';
  end;
end;

function main: string;
begin
  Result := caseme(1);
end;

end.