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
Apua!
uuppi
3
318
Vastaukset
- 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
S-kaupoissa on nykyään ihanaa käydä
Kun niissä ei enää käy satuolentoihin uskovat hihhuIit eivätkä persut. Asiakaskunta on huomattavasti siistiytynyt muutam1519223Riikka runnoo! Uutta velkaa tänä vuonna 17 mrd. euroa
Tirsk. Nyt kyllä hihityttää kuin pientä eläintä. Riikka takoo maailmanennätyksiä tasaiseen tahtiin. " [Riikka] joutuu496221Näin tyhmä vasemmistolainen on: "S-kaupoissa on nykyään ihanaa käydä
kun siellä ei ole hihhuleita eikä persuja." Vain tyhmä eli heikkoälyinen vasemmistolainen voi tehdä noin lapsellisia ju614531K-kaupassa on mukava käydä, kun ei tarvitse katsella köyhiä
vasemmistolaisia, joista monet myös varastavat. Mielellään maksaa vähän enemmän tuotteista K-kaupassa, jotka ovat paljon614429Suomessa on ollut suurtyöttömyyttä ennenkin, ja lääkäriin pääsee nykyäänkin
Täällähän oli jonkun sekopään(vas.) juttu, että ennen ei ollut työttömyyttä ja lääkäriin pääsi. Siihen alkoi tietysti ko724050Kysymys: Kuinka moneen maahan neuvosto-venäjä on hyökännyt
viimeisten 90-vuoden aikana? Ja lähinnä on siis kyse neuvosto-venäjän naapurimaista - kuten Suomesta. Lista on huomatta973813- 853454
IL - Auerin lapsia oli houkuteltu rahalla Annelin puolelle?
16:12 Outoja väitteitä Sijaisäidin mukaan Auerin lapsia koetettiin houkutella nettipalstoilla muuttamaan kertomuksiaan1603355Jens Ihlen (ex Kukka) poika todistaa oikeudessa
10:49 "Välit ovat olemattomat" Minkälainen isäsi ja sinun välinen suhde on tällä hetkellä? "Minulla ei ole minkäännäkö182986Kela maksoi etuuksia 17,3 mrd. eur, yritykset sai 10,6 mrd.
Tuohon päälle vietiin vielä palkansaajilta työeläkeloisille 27,5 miljardia euroa. Etenkin Suomen Sosialistiset Yrittäjä182386