Tablica mnozenja

Tablica mnozenja

offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3895
  • Gde živiš: Novi Sad,Klisa

Nastavih sa delphijem.... medjutim sad kod funkcija imam problem.
Zadat mi je zadatak da napravim UI kao na slici:





i da se u memo polje ispisuje tablica mnozenja.(npr 1*5=5,2*5=10,3*5=15)
var poc,kraj,rezultat:integer; begin poc:=1; kraj:=12; while poc<kraj do begin rezultat:=seBroj.Value*poc; mmRacun.Lines.Append(mmRacun.Text); //ova komanda bi trebala da posle svakog sledeceg ciklusa prebaci tekst u novi red mmRacun.Text:=InttoStr(poc)+'*'+InttoStr(sebroj.Value)+'='+inttostr(rezultat); poc:=poc+1; end;
medjutim meni samo izbaci krajnji rezultat (12*3=36 npr)/



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24130
  • Gde živiš: Wien

Umesto one dve linije koje pocinju sa mmRacun, ubaci ovo:

mmRacun.Lines.Add(InttoStr(poc)+'*'+InttoStr(sebroj.Value)+'='+inttostr(rezultat));

Negde na pocetku procedure ubaci mmRacun.Clear, da bi ocistio memo polje pre ispisivanja tablice, inace ce ostati i rezultat iz prethodnih racunanja.

Zasto uzimas kraj := 12 ?



offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3895
  • Gde živiš: Novi Sad,Klisa

zato sto u zadatku pise da treba do broja 12 da se napravi... Very Happy

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

Aha, OK Smile
Mislio sam da si se mozda zeznuo, pa zato pitam.

Jesi li probao moj predlog za ispis u mmRacun?

offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3895
  • Gde živiš: Novi Sad,Klisa

Probao sam,radi ko sat Ziveli
samo ako bi mogao da pojasnis,to add bi trebalo da dodaje novu liniju bas kao i ono append?

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

Add dodaje kraj reda nakon teksta unetog u zagradi. Sledeci uneti tekst ce se pojaviti u novoj liniji.
Greska u tvom kodu je kod manupalice Text svojstvom, posto ne dodajes tekst, vec ga svaki put pises preko starog teksta. Ispravna sintaksa bi bila mmRacun.Text := mmRacun.Text + 'jos_neki_tekst';
No, to opet nije skroz tacno, posto treba sam da dodajes i kraj reda:mmRacun.Text := mmRacun.Text + 'jos neki tekst' + #13#10;
Ovo na kraju su ti ASCII kodovi za prelazak na novi red, i vaze za Windows platformu. Mac i Linux koriste druge znakove za kraj reda, opet svaki na svoj nacin.
Za sam Append nisam siguran, jer ga nisam koristio, ali on u tvom kodu svakako nije stigao do izrazaja posto si ga vec u sledecoj liniji anulirao, tj. pisao preko rezultata Appenda.
Mislim (ali nisam proverio), da je razlika samo u dodavanju znakova za kraj reda, Add to radi automatski, a Append ne.

offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3895
  • Gde živiš: Novi Sad,Klisa

#13#10-Trazih na guglu ovo je isto kao i sLineBreak. Sad shvatam gresku. Hvala profesore Ziveli Mr. Green

Ko je trenutno na forumu
 

Ukupno su 616 korisnika na forumu :: 37 registrovanih, 4 sakrivenih i 575 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, A.R.Chafee.Jr., Aleksandar Tomić, awathorn, Bloody, bolenbgd, Boris902, caesar2, cvele130, Dorcolac2, Dragan1998, goxin, indja2, Koca Popovic, lazicdb, Markobg, Markoni29, MB120mm, MILO-VAN, Mirage 2000N, NenadG, nuke92, ozzy, pein, powSrb, Regrut Boskica, Slobodan Filipović, Sunderland06, Taso, tmanda323, versus2, Vlada1389, vlahale, vlvl, voja64, VP6919, xanadu2