[Admin]

Автор: Слаин Артур

Описание: Если нужно кому, функция для перевода строки чисел вида "1,2,3,5,7" в вид "1-3,5,7" (как при указании листов для принтера). Написал для курсовой - в расписании занятий нужно было сокращать список недель

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function TForm1.NumSeparator(inp: String): String; var o, a, c, p, r: String; begin   o := ''; p := '-1'; r := ''; a := inp;   while a <> '' do begin     if Copy(a, 0, 1) = ',' then a := Copy(a, 1);     if Pos(',', a) > 0 then begin       c := Copy(a, 0, Pos(',', a) - 1); a := Copy(a, Pos(',', a) + 1)     end else begin c := a; a := ''; end;     if p = '-1' then o := o + c     else if StrToInt(p) + 1 <> StrToInt(c)     then begin if r <> '' then       begin o := o + '-' + r; r := ''; end; o := o + ',' + c;     end else r := c; p := c;   end; if r <> '' then o := o + '-' + r;   Result := o; end;