MyCity » Pascal -> Delphi » minimum nece, maximu hoce

minimum nece, maximu hoce

Napisano na dan: 22.2.2007

minimum nece, maximu hoce
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Feb 2007 19:22
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Imam problem.
U list box se unose neki brojevi, kada se u combobox-u izabere minimum ili maximum u edit polju gde je rezultat treba da mi pokaze minimum ili maximum.
Maximum radi, ali minimum nece.Samo pokaze 0.
Evo tog dela koda, ako neko moze da vidi u cemu je greska.

case combobox1.ItemIndex of 0: begin         min:=x[1];         for i:=2 to strtoint(edindex.Text) do         if min>x[i] then min:=x[i];          edrez.Text:=floattostr(min);          end; 1: begin         max:=x[1];         for i:=2 to strtoint(edindex.Text) do         if max<x[i] then max:=x[i];          edrez.Text:=floattostr(max);          end;

Unapred hvala.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 22 Feb 2007 19:31
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Gde citas x ?
Sta se nalazi u edindex ?



Poslao: 22 Feb 2007 21:44
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

uspeo sam da se snadjem.
Nisam ti dao dovoljno podataka, x je niz, a edindex broj koji se uvecava za jedan svaki put
x[1]
x[2]....

stvar je bila jer brojac treba da se krece do strtoint(edindex.text)-1 , jer ako ide do bez -1, onda zadnji racuna kao nulu.

imam samo jos jedno pitanje, jer moze da se koristi funkcija mod sa realnim brojevima.
Meni ne moze nikako.....

Poslao: 22 Feb 2007 21:58
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

nikom ne moze...

koristi FRAC...
da bi dobio MOD, napravi nesto ovako

function MyMOD(AValue:double):integer; begin   result:= Trunc(Frac(AValue)*10); end;

Poslao: 23 Feb 2007 01:28
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Sta ti je u Edit-u "edindex"? Duzina niza?
Verovatno kod minimuma probijes duzinu niza pa za naredne indexe koje nemas u nizu uzme 0 i to ti ispise.

Poslao: 23 Feb 2007 12:20
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Reseni su svi problemi.
Hvala.

@NuLLCoDe
Jeste u tome problem.napisao sam u prethodnom postu, samo nisi video.

Poslao: 23 Feb 2007 13:41
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Ups, sorry. Sad videh, taj deo sam preskocio.

MyCity » Pascal -> Delphi » minimum nece, maximu hoce

Ko je trenutno na forumu
 

Ukupno su 847 korisnika na forumu :: 43 registrovanih, 8 sakrivenih i 796 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, Areal84, Boris90, esx66, FileFinder, FOX, GandorCC, Goran 0000, hologram, HrcAk47, Karla, Kibice, kihot, kybonacci, ladro, Marko Marković, Mercury, MiroslavD, nemkea71, nikoladim, NoOneEver Dreams, ostoja, ozzy, panzerwaffe, pein, powSrb, raptorsi, Regrut Boskica, Ripanjac, sasa87, slonic_tonic, Srle993, StepskiVuk, Tvrtko I, vathra, VJ, vladaa012, xoxxvelja, zeo, Zi0mek, Šraf, šumar bk2, 1107