Ohjelmakoodin lisääminen

Kun olemme laittanet komponentteja lomakkeella Delphi on lisännyt kokoajan tiedostoon autolask.pas ohjelmakoodia lomakkeen Autolaskuri- olion määrittelevään TAutolaskuri- luokkaan (class).

Nappuloiden toiminnallisuutta vastaavan koodin lisääminen on ohjelmoijan tehtävä. Onneksi Delphi tekee tästäkin suurimman osan:

1.

Tuplaklikkaa Henkilöautoja- nappulaa. Nyt aukeaa koodi- ikkuna, jossa on valmiina Pascal- kielinen tapahtumankäsittelijän esittely tapahtumalle, joka tulee kun painetaan nappulaa nimeltä ButtonHA:

	procedure TAutolaskuri.ButtonHAClick(Sender: TObject);
	begin
	_
	end;

2.

Kursori on valmiina paikassa, johon oma koodi kirjoitetaan. Me haluamme että nappulaa painettaessa LabelHA:ssa oleva lukema lisääntyy yhdellä. Tämä voitaisiin kirjoittaa: LabelHA.Caption := LabelHA.Caption + 1; mutta valitettavasti LabelHA.Caption on tekstiä eikä sitä voi numeerisesti lisätä (kuten Visual Basicin Variant- tyyppiä voi). Siispä kirjoitamme koodin:

	  LabelHA.Caption := IntToStr(StrToInt(LabelHA.Caption)+1);

3.

Koodi kannattaa saman tien laittaa leikekirjaan, koska sehän tulee lähes samanlaisena nappulaan ButtonKA.

4.

Lisää vastaava koodi oikein muutettuna nappulaan ButtonKA. Huom! Jos et edellä huomannut laittaa koodia leikekirjaan, löytyy edellinen koodi samasta koodi- ikkunasta hieman ylempää ja voit hakea sen kuin missä tahansa editorissa.

5.

Lisää vielä koodi nappulaan ButtonNollaa. Nyt koodiksi riittää

	  LabelHA.Caption := '0';
	  LabelKA.Caption := '0';

6.

Käännä ja aja ohjelma.