10.02.2013, 14:49
|
|
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия Delphi: Delphi 7
Репутация: выкл
|
|
[ Исходник ] - функция для перевода строки чисел вида "1,2,3,5,7" в вид...
Автор: Слаин Артур
Описание: Если нужно кому, функция для перевода строки чисел вида "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;
|