Formatiranje stringa

Formatiranje stringa

offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

Potrebno mi je da formatiram string u string. I to npr: 1 u 1.00, 25 u 25.00, 0.1 u 0.10 i sl.. Nisam imao vremena da svrljam previse po netu(oni nude uglavnom string to currency i obrnuto), a i ovde se lakse dobije odgovor. Zivjo Pascal i Wirth.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 02 Jul 2008
  • Poruke: 125

Format('%10.2f',[StrToFloat(edit1.Text)])

gde je u edit1.text upisana vrednost koju hoćeš da konvertuješ, npr. 0.1



offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

Potrebno mi je brze(sa manje konvertovanja), zato sto toga formatiranja ima dosta i crta se po canvasu(i forme i printera), a radice i na starijm racunarima. Ovo je dobro rjesenje za navedeni slucaj, mozda cu ga morati upotrebiti, ali pretpostavljam da ima nesto brze. U svakom slucaju hvala.

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Nadji neku biblioteku string funkcija koja je pisana u asembleru.
Ne znam da li ima Format u QStrings biblioteci, ali ces sigurno naci na netu neku biblioteku koja ima Format odradjen u asembleru.

offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

Trazio sam u BDSu QStrings.dll, u D7 i na netu i koliko sam nasao izgleda
da je to C++ biblioteka za Qt(cross platforma za MacOS i Windows).
Imali negdje source code te biblioteke(sto ne znaci da cu ga znati i koristiti), posto se na netu na prvo trazenje bas i ne moze naci.

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

QStrings imas ovde:
[Link mogu videti samo ulogovani korisnici]

Sada sam pogledao, i ta biblioteka nema nista za formatiranje Stringova.
U svakom slucaju pogledaj link, imas tu jos gomilu biblioteka za rad sa stringovima, mozda nadjes nesto.

Ako ti treba QStrings, vidi koja je to verzija na sajtu (otvori PAS fajl i pogledaj komentar).
Ja imam verziju July 07, 2003 na disku (oko 600kb nekompresovano).

offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

QStrings 6.06.424 sam skinuo i ima raznih metoda za formatiranje funkcija napisanih u assembleru pa ce mi biti mnogo koristan za ubuduce. Hvala! Inace u svoj program sam stavio
if not TryStrToFloat(S, Zb1) then
Zb1 := 0;
S := FormatFloat('0.00', (Zb1));
i ne uzima puno resursa procesora(naradost), 2-3% vise od normalnog pri prvom iscrtavanju stranice. Inace ja preferiram crtanje po canvas-u, a ne upotrebu Report Manager-a, a to preporucujem svima. Evo i slike stranice koja se iscrtava, a na sve brojeve desno je primjenjen navedeni metod, pa sam radi poredenja(ako nekom bude potrebno da zna koliko proracuni izmedu crtanja zauzimaju procesora(izgleda da moze i mnogo vise takvih ne puno ponavljajucih procesa)) postavio sliku.

Ko je trenutno na forumu
 

Ukupno su 1756 korisnika na forumu :: 99 registrovanih, 8 sakrivenih i 1649 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: -[CoA]-, Ailton, ajo baba, Badja, Belac91, blue, bojank, cvrle312, cyprus, Daba75, darkkran, DejvTroter, deLacy, dovby, draganl, EXIT78, fireball021, FULCRUM1389, Goran 0000, GrammaticalAnalysis, Hardenberg, hatman, iceburn, ikan, Ilija Grubor, ivancica1790, jodzula, Jovan1983, K-1A, kaisarevic1, Kajzer Soze, kovinacc, Kruger, KUZMAR, Lelemood, Lester Freamon, Ljusa, Lucije Kvint, luka35, M74AB3, madza, mačković, miki kv, Milan A. Nikolic, milbos, Miletić Zoran, miljannis, MiljanXD, milutin134, Moldovan, moldway, Natuzzi, nebkv, nekdo, nelezele, nenad81, Neutral-M, neutrino, niksa517, Nobunaga, Parker, pceklic, pedja.st, Pekman, Petarvu, Pilence, ping15, powSrb, Prečanin30, radoznao, raptorsi, raso76, Resad76, RileHerc, sabros, Samo gledam, SamostalniReferent, savaskytec, sekretar, Sevatar, Shadows1, Sonic, sova72, sspp, stegonosa, synergia, tanakadzo, tomo2, tuf, Uros Cuore Sportivo, vensla, Voice1, Wehicle, Yekaterinburg, zeka013, zemljanin, Žoržo, Đurđevdan, 79693