Tablica mnozenja

• 1Ovo se svidja korisniku: ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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)/

• 3Ovo se svidja korisnicima: ivance95, NIx Car, ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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 ?

• 1Ovo se svidja korisniku: ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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

• 2Ovo se svidja korisnicima: NIx Car, ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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

Jesi li probao moj predlog za ispis u mmRacun?

• 1Ovo se svidja korisniku: ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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

• 2Ovo se svidja korisnicima: NIx Car, ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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.

• 1Ovo se svidja korisniku: ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

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