Delphi 9 的新语法 for loop

根据Borland首席科学家Danny Thorpe的Blog D9增加了 for  in 循环

这样 我们就可以写

type
  TRole = (worker, manager, executioner, CEO);
  TJobRoles = set of TRole;
 
procedure Demo3(const JobRoles: TJobRoles);
var
  R: TRole;
begin
  for R in JobRoles do
    // use R here;
end;

不错 方便