將一組數字轉換為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/ZH/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;