Kolapsovanie zoznamu čísiel (integer)

[martinnr]

Neriešili ste niekto niečo také, že zo zoznamu čísiel (integer):
1, 2, 3, 5, 7, 8, 11, 13, 14, 15, 16, 17

získať výstup (typ string):
"1-3, 5, 7-8, 11, 13-17"

vstupný zoznam čísiel viem "dodať" aj ako jeden reťazec (s oddelovačom napr ","), alebo ako StringList, alebo ako pole string/integer, alebo ako list string/integer, ...

nepodarilo sa mi vygugliť nič podobné...

[vandrovnik]

To přeci není tak těžké napsat - je potřeba si pamatovat pracovní počátek intervalu, pracovní konec intervalu a s každým dalším číslem se podíváš, zda to navazuje na konec intervalu - pokud ano, posuneš pracovní konec intervalu, pokud ne, předchozí interval zapíšeš a inicializuješ nový tím aktuálním číslem.

Jestliže těch čísel bude opravdu hodně, řešilo by se, jak to udělat efektivně s ohledem na práci se stringy.

[JaroB]

Tady je knihovna, která obsahuje i funkce pro práci s intervaly:

http://micrel.cz/delphi/download/jbstr.zip

[martinnr]

Viem, ze to nie je tazke nakodovat, ale ak to uz niekto riesil, usetrilo by mi to cas…

Dik, za tie zdrojaky, mrknem to.