Brojevi u StringListi

Odgovori Nova tema

7 odgovora
3.990 pregleda

Brojevi u StringListi 02.07.2009. u 01:23 · pre 211 meseci #1

U StringListi su sortirani brojevi tipa word, ne veci od 500, npr 1,2,3,7,55,56,57,58,77,111,112,113,114,115,116...
Kako da ih dobijem kao jedan string: '1..3,7,55..58,77,111..116'?

Potpis

Arduino Control Center

Re: Brojevi u StringListi 02.07.2009. u 08:34 · pre 211 meseci #2

stringLista.CommaText

pozz.

Re: Brojevi u StringListi 02.07.2009. u 08:34 · pre 211 meseci #3

Code:
for i := 0 to List.Count-1 do
nekiString:=nekiString+List[i];

Potpis

Re: Brojevi u StringListi 02.07.2009. u 10:36 · pre 211 meseci #4

Hvala ti, znam za CommaText ali onda dobijem string 1,2,3,7,55,56,57,58,77,111,112,113,114,115,116 ali ja verovatno nisam bas objasnio dobro sta mi treba.
Dakle, ako brojevi u listi idu redom npr. 1 2 3 4 5 deo stringa bi bio '1..5,' pa sledeci brojevi 55 111 112 113 onda bi ceo string izgledao ovako:'1..5,55,111..113' itd do kraja liste.

Potpis

Arduino Control Center

Re: Brojevi u StringListi 02.07.2009. u 11:29 · pre 211 meseci #5

onda ovako:

Code:

function MakeNiceList(lista: TStrings):string;
var
   i: integer;
   tmp: string;
   prev: integer;
begin
  tmp := '';
  prev := 1;
  for i := 0 to lista.Count -1 do
      begin
      if (StrToInt(lista[i]) = prev + 1) then
         begin
         if (tmp[Length(tmp)]=',') then
            begin
            Delete(tmp, Length(tmp), 1);
            tmp := tmp + '.';
            end;
         end
         else
         begin
         if ((Length(tmp)>0) and (tmp[Length(tmp)]='.')) then
            tmp := tmp + '.' + lista[i-1] + ',';
         tmp := tmp + lista[i]+',';
         end;
      prev := StrToInt(lista[i]);
      end;
  if ((Length(tmp)>0) and (tmp[Length(tmp)]='.')) then
     tmp := tmp + '.' + lista[lista.Count -1] + ',';
  Result := tmp;
end;

Re: Brojevi u StringListi 02.07.2009. u 11:46 · pre 211 meseci #6

To je to i radi. Hvala puno.

Potpis

Arduino Control Center

Re: Brojevi u StringListi 02.07.2009. u 13:30 · pre 211 meseci #7

Lepo, lepo...
Aj sad to resi sa varijabilnom vremenskom zahtevnoscu manjom od O(n), odnosno O(n) u najgorem slucaju...

Potpis

if it walks like a duck and quacks like a duck, it could be a dragon doing a duck
impersonation.

Re: Brojevi u StringListi 02.07.2009. u 13:34 · pre 211 meseci #8

Citat:

Boris B.: Lepo, lepo...
Aj sad to resi sa varijabilnom vremenskom zahtevnoscu manjom od O(n), odnosno O(n) u najgorem slucaju...

slusaj, uz koju pivu .....

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme