IfThen -funktion käyttö

max:=IfThen(a>b,a,b);
on sama kuin
If a>b Then Max:=a Else max:=b;

Tee uusi sovellus

Laita ensin tyhjälle Form:lle (Form1)
- kaksi Edit-komponenttia (Edit1 ja Edit2)
- Label-komponentti (Label1)
- Button-komponentti (Button1)

Tee Form:lle OnCreate tapahtuma. Täydennä sen "runkoa"
niin että se näyttää tältä

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := IntToStr(100);
Edit2.Text := IntToStr(200);
end;

Tee Button:lle (Button1) vastaavasti OnClick-tapahtuma.
Täydennä sitä että se näyttää tältä

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
Label1.Caption :='Luvut ovat ' IfThen(a=b,'yhtäsuuria','erisuuria');
end;


Lisää uses-lauseen myös StrUtils, Math jonon jatkoksi samanlailla pilkulla erotettunakuin muutkin. Uses-lause löytyy koodin alkuosasta.

Täytyy olla provo, mut siitä huolimatta kielen perusrakenteet eivät ole funktioita.