将一组数转换为String

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;