[es] - Problem sa Realnim tipovima

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

^{22.04.2005. u 09:32 - pre 231 meseci}

Cao svima
Trenutno pravim neki program za neko knjigovodstvo i problem je kad svi unesete broj 50 on treba da proveri da li ima nesto iza zareza i ako nema da doda doda 00 tako da bude 50.00, isto tako treba ako unesete 50.4 da napravi 50.40.

Odgovor na temu

Vic
Error974
BI&SE
Beograd

Član broj: 16118
Poruke: 396
*.timtehnologije.co.yu.

+49 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 09:54 - pre 231 meseci}

Pojasni malo sire.. Koju bazu koristis. Takve stvari mozes da definises u bazi

ERROR974

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 10:14 - pre 231 meseci}

Ne koristim bazu nego sam defininisao

Code:

type
type
        nnn = record
        ime:String[20];
        adresa:String[40];
        sifra:string[7];
        ssf:string[7];
        stanje:real48;
        end;
type
        frm = record
        opis:string[40];
        Duguje:real48;
        potrazuje:real48;
        datum:string[10];
        end;
type
        unos = file of frm;

var
firme: file of nnn;
  sifr:nnn;
  unosi: array[0..1000] of unos;
  uns:frm;

To nije program za knjigovodstvo nego za vodjenje evidencije poslovnih partnera, koliko oni duguju/potrazuju $. To radim caletu treba mu za njegovu firmu. E sad imam jedan form na kome imam nekoliko Tedit i jedal listView, sad u edite uneses podatke uplate isplate i problem mi je kako da napravim da mi uvek pise sve na dve decimale??

Odgovor na temu

Vic
Error974
BI&SE
Beograd

Član broj: 16118
Poruke: 396
*.timtehnologije.co.yu.

+49 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 10:25 - pre 231 meseci}

Nemam predstavu sta pokusavas da uradis bez baza, ali uvek mozes da koristis sledece: floattostrf(nekireal,ffnumber,15,2) i dobices format na ekranu ###,###.##. Mada mislim da ti je pametnije da napravis neku bazu.

ERROR974

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 10:32 - pre 231 meseci}

Hm, ako sam te dobro rayumeo ovo ti je resenje:

jednostavno napravi da ti se recimo onaj broj "potrazuje" stampa kao

Code:
frm.potrazuje:48:2

i automatski ce ti se dodavati nule iza zareza ako nema nista, tj samo jedna nula ako vec ima jedan br iza zareza

...

BTW nisi rekao da li je Pascal ili Delphi u pitanju

... Ja tipujem na Pascal zbog nacina deklarisanja svega ovoga ( jer zasto komplikovati ovako kad je u Delphiju fantasticno lako raditi sa bazama

), ali ne vidim razlog da ni u Delphiju ne radi kako treba ( samo ces trebati malo da prilagodis posto se brojevi ne ispisuju bas tako, ali za to konsultuj Delphijev help i nece ti biti problem )

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 10:45 - pre 231 meseci}

Hvala uspeo sam sa ovim sto je Vic napisao, to mi je jos zgodnije jer mi je i to sa zarezima trebalo, nego kad ga budem vracao iz stringa u float 5,346.00 oce mi raditi? Radim u delphi 6 ne radim sa bazama zato sto ne znam. Ako hocete ja ovde imam jedan programcic koji nije gotov ali radi osnovne funkcuje sto mi treba, da ga ja okacim a da neko uradi nesto ekvivalentno sa bazama, tako d i ja kao i drugi mogli da naucimo nesto.

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 10:55 - pre 231 meseci}

Probaj sa ovim:

Code:

edit1.text:=format('%10.2f',[strtofloat(edit1.text)]);

Odgovor na temu

Vic
Error974
BI&SE
Beograd

Član broj: 16118
Poruke: 396
*.timtehnologije.co.yu.

+49 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 10:57 - pre 231 meseci}

Rado bih ti pomogao ali sam slab sa vremenom. Sto se tice vracanja.. matematicke operacije koristis regularno, samo sto za prikaz koristis floattostrf. Pogledaj u Delphi helpu sve je lepo objasnjeno. Davno nisam koristio floattostrf i strtofloat, ali znam da lako i dobro zavrsava posao

ERROR974

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 11:51 - pre 231 meseci}

E jbg, mene si presao za Delphi

... Frugi put odmah reci u čemu radiš da se ne "izlećem" više

...

BTW mogu ja da prebacim taj prog da radi sa bazama, pošto od sutra završavam sa ispitima za sada

...

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 21:38 - pre 231 meseci}

Imam jos jedan problem na jednom formu imam jedan TListView tj evo slika:

Nego kad unesem "lepe" vrednbosti tipa xxxx.xx i kad treba u saldu da ih oduzme dobijem xxxx.xx000000000yy
evo coda kad pritisnem dugme

Code:

procedure TForm2.Button1Click(Sender: TObject);
var
iii:TListItem;
begin
if edug.Text='' then edug.Text:='0.00'; //da li sam ostavio prazno
if epot.Text='' then epot.Text:='0.00';
uns.opis:=eop.Text;
uns.datum:=edat.Text;
uns.Duguje:=strtofloat(edug.text);
uns.potrazuje:=StrToFloat(epot.text);
seek(unosi[rb],filesize(unosi[rb])); // ide na kraj fajla
write(unosi[rb],uns);// upisujem zapis o unosu u fajl(uns.xxxx)
seek(firme,k);
read(firme,sifr); //citam predhodni saldo
sifr.stanje:=sifr.stanje+uns.Duguje-uns.potrazuje; //Ovde oduziam da bi dobio saldo
seek(firme,k);
write(firme,sifr); //zapisujem novo stanje
stf.Caption:='Trenutno stanje  ' +floattostr(sifr.stanje);
with nnn do
        begin
        iii:=Items.Add;
        iii.Caption:=inttostr(o);
        iii.SubItems.Add(eop.Text);
        iii.SubItems.add(edat.Text);
        iii.SubItems.Add(edug.Text);
        iii.SubItems.add(epot.Text);
                o:=o+1;
        iii.SubItems.add(FloatToStr(sifr.stanje));
        end;
eop.Text:='';
//edat.Text:='';
edug.Text:='';
epot.Text:='';
end;

Prikačeni fajlovi

Form2.JPG - 32.59k

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Problem sa Realnim tipovima

^{22.04.2005. u 22:59 - pre 231 meseci}

Ajde probaj ovako:

Umesto ove 2 linje:

Code:

uns.Duguje:=strtofloat(edug.text);
uns.potrazuje:=StrToFloat(epot.text);

stavi ove 4:

Code:

uns.Duguje:=roundto(strtofloat(edug.text),-2);
uns.potrazuje:=roundto(StrToFloat(epot.text),-2);
edug.text:=format('%10.2f',[uns.duguje]);
epot.text:=format('%10.2f',[uns.potrazuje]);

Odgovor na temu

Vic
Error974
BI&SE
Beograd

Član broj: 16118
Poruke: 396
*.124.EUnet.yu.

+49 Profil

Re: Problem sa Realnim tipovima

^{23.04.2005. u 18:57 - pre 231 meseci}

Vidim da si koristio opciju floattostr... Koristi floattostrF

ERROR974

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Problem sa Realnim tipovima

^{23.04.2005. u 19:05 - pre 231 meseci}

Citat:

Vic: Vidim da si koristio opciju floattostr... Koristi floattostrF

Hvala ti za to prepravio sam kasnije. nego sad me zeza sto mi daje vrednosti tipa 5.5600000000096 ro sam u C izbegavao tako sto sam umesto float stavio double. Da uradim i sada tako ili nesto drugo?

Odgovor na temu