[Nyctos Kasignete]

Сообщение от Sharky

да еще и в возрастающем порядке

Вот это, насколько я могу судить, точно выходит за сферу множеств. Потому что множества по определению неупорядочены, и порядок для них никакого значения не имеет...
Исходя из результата функции, которую написал lmikle, я бы отсортировала так:

Код:

var
  DigitSet: TDigits;
  i: TDigit;
  ExpandedStr: string;
begin
  DigitSet :=  ParceDigit(StrToInt(Edit1.Text)); // например, в поле Edit написано разлагаемое на цифры число
  ExpandedStr := '';
  for i := 0 to 9 do
    if (i in DigitSet) then ExpandedStr := ExpandedStr + IntToStr(i) + #13#10;
  ShowMessage(ExpandedStr);
end;

Сообщение от Sharky

нельзя в качесте типа функции указывать сет

Почему это?