[Admin]

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

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

Код:

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;