Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Brojevi u StringListi

[es] :: Pascal / Delphi / Kylix :: Brojevi u StringListi

[ Pregleda: 2777 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.rs.

Sajt: https://lanmisoft.com


+1 Profil

icon Brojevi u StringListi02.07.2009. u 00:23 - pre 179 meseci
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'?
Arduino Control Center
 
Odgovor na temu

gpedja_70
programer
Novi Sad, Srbija

Član broj: 224317
Poruke: 53
*.wobyhaus.co.rs.



+2 Profil

icon Re: Brojevi u StringListi02.07.2009. u 07:34 - pre 179 meseci
stringLista.CommaText

pozz.
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Brojevi u StringListi02.07.2009. u 07:34 - pre 179 meseci
Code:
for i := 0 to List.Count-1 do
   nekiString:=nekiString+List[i];

F
 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.rs.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Brojevi u StringListi02.07.2009. u 09:36 - pre 179 meseci
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.
Arduino Control Center
 
Odgovor na temu

gpedja_70
programer
Novi Sad, Srbija

Član broj: 224317
Poruke: 53
*.wobyhaus.co.rs.



+2 Profil

icon Re: Brojevi u StringListi02.07.2009. u 10:29 - pre 179 meseci
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;
 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.rs.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Brojevi u StringListi02.07.2009. u 10:46 - pre 179 meseci
To je to i radi. Hvala puno.
Arduino Control Center
 
Odgovor na temu

Boris B.
Ljubljana

Član broj: 213615
Poruke: 286
*.zaslon-telecom.si.



+14 Profil

icon Re: Brojevi u StringListi02.07.2009. u 12:30 - pre 179 meseci
Lepo, lepo...
Aj sad to resi sa varijabilnom vremenskom zahtevnoscu manjom od O(n), odnosno O(n) u najgorem slucaju...
if it walks like a duck and quacks like a duck, it could be a dragon doing a duck
impersonation.
 
Odgovor na temu

gpedja_70
programer
Novi Sad, Srbija

Član broj: 224317
Poruke: 53
*.wobyhaus.co.rs.



+2 Profil

icon Re: Brojevi u StringListi02.07.2009. u 12:34 - pre 179 meseci
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 .....
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Brojevi u StringListi

[ Pregleda: 2777 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.