delphi - 将集合的数字转换为字符串

Question

我想将 MySet = set of 1..8 中的数字保存到 MyString : String。是否有像 IntToStr 这样的函数可以做到这一点？

我有一个调度程序，它接收 (* * * * * * * *) 形式的字符串。其中一颗星代表执行的天数，MySet 是天数列表。例如 1 是星期一，2 是星期二。我必须将集合中的数字保存到该字符串，所以它看起来像这样:(0 0 15 * * * 1,2,3 *)。这意味着，调度程序将在每周一、周二、周三的 15:00 触发。

如果您想阅读有关此格式的更多信息: http://www.nncron.ru/help/EN/working/cron-format.htm

Answer 1

使用 for..in生成所需字符串的迭代器:

Type
  MySet = set of 1..8;

function MySetToString(const s: MySet): String;
var
  i: Integer;
begin
  Result := '';
  for i in s do begin
    Result := Result + IntToStr(i) + ',';
  end;
  SetLength(Result,Length(Result)-1);
end;