Apua!

uuppi

Pieni pulma minulla..

kun Labelissa lukee 100 ja ListBoxin palkissa lukee 500 ja buttonissa on tämä koodi:

Label1.Caption := (Label1.Caption ListBox1.Items.Strings[ListBox1.ItemIndex]);

ja kun buttonista painaa niin labeliin tulee 100500..
millä koodilla labeliin saisi 100500 sijasta 600? :P

3

271

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vaan kokonaislukujen yhteen...

      Eli tilanne nyt

      Label:n Caption ominaisuus(property) palauttaa merkkijonon (string) jonka lisätään ohjelman käyttäjän valitsemaan ListBox-komponentissa olevaan merkkijonoon. Kun kaksi merkkijonoa lisätään toisiinsa niin syntyy tämä tilanne.


      Ilmeisesti haluat laskea kaksi kokonaislukua yhteen joista toinen on Label-komponentissa ja toisen voi ohjelman käyttäjä valita ListBox-komponentissa olevista
      luivuista.

      Mitä voisi tehdä?

      Vastaus olisi että muunnetaan merkkijonot kokonaisluvuiksi. Lasketaan kokonaisluvut yhteen. Muutetan yhteenlaskussa saatu summa takaisin merkkijonoksi.
      Merkkijono voidaan muuntaa kokonaisluvuksi (esim.) StrToInt -funktiolla.
      Vastaavasti kokonaisluku voidaan muuttaa merkkijonoksi IntToStr -funktiolla.

      Eli näppäimen painamista vastaavaan tapahtumaan voisi täydentää vaikka tälläiseksi:
      (oletuksena on eka oletus Form ja Button)


      procedure TForm1.Button1Click(Sender: TObject);
      var i,j:integer ;
      begin
         i := StrToInt( Label1.Caption );
         j := StrToInt( ListBox1.Items.Strings[ListBox1.ItemIndex] );
         i := j i;
         Label1.Caption := IntToStr(i);
      end;

    • SpinEdit

      Ihan vain vinkkinä kannattaa tutustua myös SpinEdit-komponenttiin.
      SpinEdit-komponentin Value ominaisuudesta saadaan suoraan integer arvo.
      Sillähän on muitakin ominaisuuksia kuten arvon lisäys ja vähennys (hiirtä klikkaamalla).

    • qwertyuioppi

      Välttämättä aivan kaikki ei heti huomaa että myös numeroiden yhteenliittäminen on hyvä asia.

      Tätä merkkijonojen lisäystä voi käyttää esim kun valitaan sopivaa teleoperaattoria esim. ulkomaan liikenteessä. Ulkomaan soitoissa puhelinnumeron eteen laitetaan 999 jos operaattoriksi valitaan Elisa, 990 = Sonera, 994=TDC song, 996 = DNA. Sen jälkeen tulee maan numero jne.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Janne Ahonen E R O A A

      Taas 2 lasta jää vaille ehjää perhettä!
      Kotimaiset julkkisjuorut
      193
      3971
    2. Tekisi niin mieli laittaa sulle viestiä

      En vaan ole varma ollaanko siihen vielä valmiita, vaikka halua löytyykin täältä suunnalta, ja ikävää, ja kaikkea muuta m
      Ikävä
      92
      1896
    3. Miksi ihmeessä?

      Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek
      Ateismi
      28
      1572
    4. Ootko huomannut miten

      pursuat joka puolelta. Sille joka luulee itsestään liikoja 🫵🙋🏻‍♂️
      Ikävä
      165
      1392
    5. Erika Vikman diskattiin, tilalle Gettomasa ja paluun tekevä Cheek

      Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek https://www.rumba.fi/uut
      Maailman menoa
      25
      1266
    6. Pitääkö penkeillä hypätä Martina?

      Eivätkö puistonpenkit ole istumista varten.Ei niitä kannata liata hyppäämällä koskaa likaantuvat eikä siellä kukaan niit
      Kotimaiset julkkisjuorut
      212
      1140
    7. Kerropa ESA miten kävi tuomioiden

      Osaako ESA kertoa miten haukkumasi kunnanhallituksen kävi.
      Puolanka
      39
      1132
    8. Kuinka kauan

      Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?
      Ikävä
      94
      1109
    9. Maikkarin tentti: Orpo jälleen rauhallinen ja erittäin hyvä, myös Purra oli hyvä

      Lindtman ja Kaikkonen oli kohtalaisia, sen sijaan punavihreät Koskela ja Virta olivat taas heikkoja. Ja vastustavat jalk
      Maailman menoa
      129
      1093
    10. Milli-helenalla ongelmia

      Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell
      Kotimaiset julkkisjuorut
      195
      1016
    Aihe