Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.02.2013, 14:49
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
Лампочка [ Исходник ] - функция для перевода строки чисел вида "1,2,3,5,7" в вид...

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

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

Код:
function TForm1.NumSeparator(inp: String): String;
var o, a, c, p, r: String;
begin
  o := ''; p := '-1'; r := ''; a := inp;
  while a &lt;&gt; '' do begin
    if Copy(a, 0, 1) = ',' then a := Copy(a, 1);
    if Pos(',', a) &gt; 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 &lt;&gt; StrToInt(c)
    then begin if r &lt;&gt; '' then
      begin o := o + '-' + r; r := ''; end; o := o + ',' + c;
    end else r := c; p := c;
  end; if r &lt;&gt; '' then o := o + '-' + r;
  Result := o;
end;

Последний раз редактировалось Admin, 10.02.2013 в 15:29.
Ответить с цитированием
  #2  
Старый 10.02.2013, 15:04
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

жуть оформлено.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение:
OTVET (12.02.2013)
  #3  
Старый 10.02.2013, 19:22
Аватар для alexpac26
alexpac26 alexpac26 вне форума
Прохожий
 
Регистрация: 23.08.2011
Сообщения: 20
Репутация: 10
По умолчанию :)

Код:
// стандарт строки 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;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter