minimum nece, maximu hoce

minimum nece, maximu hoce

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.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Gde citas x ?
Sta se nalazi u edindex ?



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.....

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;

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.

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.

offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

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

Ko je trenutno na forumu
 

Ukupno su 567 korisnika na forumu :: 3 registrovanih, 0 sakrivenih i 564 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: 4channer, cikadeda, Miskohd