Apua!

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;

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

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.