StringGrid i Memo komponente - citanje i upis

StringGrid i Memo komponente - citanje i upis

offline
  • Pridružio: 10 Jul 2007
  • Poruke: 60

E ovako...Moram napraviti program koji se sluzi komponentama StringGrid i Memo,a koji ce od brojeva koji su uneti u StringGrid "truncovati" i u Memo ispisati samo cele brojeve.Kako ce mi glasiti procedura Buttona u tom slucaju?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 08 Jan 2007
  • Poruke: 279
  • Gde živiš: Srbija

Nije poenta da ti se da gotovo rešenje. Kreni, pa kad zapne, pitaj.



offline
  • Pridružio: 10 Jul 2007
  • Poruke: 60

U tome i jeste stos,sto ne znam,nazalost...Nemam ideju.
Ne bih trazio pomoc da znam,sto je i logicno...

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

Sto se tice StringGrid-a, upis i citanje mozes da radis preko svojstva Cells koji je definisan kao:

StringGrid1.Cells[x,y] gde je X broj kolone, a Y broj vrste u string gridu. Treba napomenuti i to da ove vrednosti krecu od 0, a ne od 1.

Ukoliko na primer, zelis da upises nesto u celiju u trecoj koloni, i prvom redu to ces uraditi naradbom:

StringGrid1.Cells[3,1]:='TEST'; StringGrid1.Cells[3,1]:='3';

Ono sto upisujes, moras da navedes izmedju navodnika, jer je u pitanju string.

Sto se tice Memo komponente, njena osnovna svojsta su linije kojima "upravljas" preko svojstva Lines. Ovu komponentu mozes da shvatis kao vise numerisanih Edit komponenti. Da bi nesto upisao u Memo to mozes da uradis na sledeci nacin:

Memo1.Lines[1]:='TEST'; Memo1.Lines[3]:='TEST3';

U uglastim zagradava navodis red u memo-u, u koji upisujes ili iz kojeg citas.

Sto se tice tvog primera, potrebno ti je da iscitavas StringGrid, zaokruzis vrednosti i zatim upises u Memo.

Iscitavanje StringGrida mozes da realizujes putem dve for petlje.
Ukoliko imas StringGrid dimenzija 5 x 5, iscitavanje ces uraditi na sledeci nacin:

k:=0;   {Red u koji se upisuje u Memo, krece od 0} for i:=0 to 4 do     {Promenljiva koja oznacava kolonu}     for j:=0 to 4 do         {Promenljiva koja oznacava vrstu} Begin ucitano:=StringGrid.Cells[i,j];  {Ovde zavrsava deo za sa ucitavanjem} {U ovoj liniji realizuj kod koji ce da zaokruzuje broj, ali pre toga je potrebno string konvertovati u broj } Memo.Lines[k]:=ucitani;       {Upis zaokruzenog broja u Memo, pre toga potrebna konverzija u string} k:=k+1; end;

Evo, tvoj kod bi otprilike trebao da izgleda ovako.
K je promenljiva koja ce da cuva tekuci red Memo komponente u koji treba da se upisuje.

offline
  • Pridružio: 10 Jul 2007
  • Poruke: 60

Stani sad.Ti ga bas isecka,ali me interesuje kako da ubacim ovo trunc koje bi zaokruzivalo brojeve.Program bi izgledao ovako: Sa leve strane imam taj StringGrid u kome unosim razne brojeve i cele i decimalne i negativne,a sa desne imam Memo u kojoj kad pritisnem dugme Odradi treba da izadju samo celi brojevi.Jel ti nije problem da mi napises onako pesacki- Procedure Button1Click...jer ja sam veliki bukvalista.

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Ako pogledas ranije teme, videsec da niko nije dobio gotov kod, a da se nije potrudio. NuLLCoDe ti je detaljno objasnio postupak, tvoj ceo zadatak se sveo na prevodjenje stringa u broj i zaokruzivanje. Ako ti je problem da prevedes string u broj pogledaj StrToInt, StrToIntDef, TryStrToInt i slicne funkcije u Help-u, mada mislim da ces se snaci i bez njega.

Kreni da radis pa se javi kad zapnes.

offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

trunc(StrToInt('123'))

I ostalo ti je sve dato...samo uklopi....

Ko je trenutno na forumu
 

Ukupno su 634 korisnika na forumu :: 12 registrovanih, 1 sakriven i 621 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: bladesu, Doca, dragoljub11987, ILGromovnik, Karla, kihot, Ne doznajem se u oružje, opt1, repac, sasa76, Shilok, Slingshot