[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;

[M.A.D.M.A.N.]

жуть оформлено.

[alexpac26]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

// стандарт строки 1,2,3,5,7 function NumParser2(numstr: string; rz: char = ','):string; var s: TStringList; i: integer; ok : boolean; begin   s := TStringList.Create;   ExtractStrings([rz],[' '],PChar(numstr),s);   result:='';   // преобразование   ok := false;   for i:=s.Count-2 downto 1 do     if ((s[i-1] = '-') or (strtoint(s[i-1])+1 = strtoint(s[i]))) and        ((s[i+1] = '-') or (strtoint(s[i+1])-1 = strtoint(s[i]))) then begin           s[i] := '-';           if ok then s.Delete(i);           ok:=true;     end else       ok:=false;   // end for   s.Delimiter:=rz;   result:=StringReplace(s.DelimitedText,rz+'-'+rz,'-',[rfReplaceAll]);   s.free; end;   procedure TForm1.Button1Click(Sender: TObject); begin   ShowMessage(NumParser2('1,2,3,5,7'));   ShowMessage(NumParser2('1,2,3,5,7,10,11,12,13'));   ShowMessage(NumParser2('1,2,3,4,5,7,13,70,71,72,73,80')); end;