Kun uses lauseeseen lisää math,StrUtils -unitit niin voi käyttää IfThen-funktiota. Mikä on tämän funktion käyttötarkoitus?
IfThen -funktion käyttö
7
455
Vastaukset
- ...
max:=IfThen(a>b,a,b);
on sama kuin
If a>b Then Max:=a Else max:=b;- Ei hitsi?
Tämä oli uutta mulle? Vaikka olen koodaillut Delphillä jo vuodesta 1996. Ikinä ei voi tietää kaikkea :D
- TesTeRi
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. - niinkö teilläkin
Täytyy olla provo, mut siitä huolimatta kielen perusrakenteet eivät ole funktioita.
- ...
Delphin IfThen taitaa olla funktio
IfThen(f>0,1/f,0) ilmoittanee nollalla jakovirheestä,
mutta javan vastaava ei ilmoita
(f>0 ? 1/f:0) - Tiellä kulkija
... kirjoitti:
Delphin IfThen taitaa olla funktio
IfThen(f>0,1/f,0) ilmoittanee nollalla jakovirheestä,
mutta javan vastaava ei ilmoita
(f>0 ? 1/f:0)On ihan hyvä huomioda tuollaiset seikat.
Millä Pascal-versiolla testatsit tuon toimivuutta?
Muista että eri kielet on toteutettu vähän eritavalla! - ...
Tiellä kulkija kirjoitti:
On ihan hyvä huomioda tuollaiset seikat.
Millä Pascal-versiolla testatsit tuon toimivuutta?
Muista että eri kielet on toteutettu vähän eritavalla!Pascalia en kokeillut ollenkaan, javan testasin.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 15110934
- 525220
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html452433- 302133
Vanha Suola janottaa Iivarilla
Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia131701Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,421544Tiedän kuka sinä noista olet
Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta301241Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v351166Daniel Nummelan linjapuhe 2025
Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo92935TÄSTÄ TAITAA TULLA SUOMEN HISTORIAN SUURIN USKONNONVAPAUDEN OIKEUDENKÄYNTI.
Sinun täytyy hyväksyä se että jos sinä vetoat uskonnonvapauteen, silloin sinun tulee antaa myös muille vastaava vapaus o317892