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ö
ifthen kysymys
7
494
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
Nasima löi Jussille luun kurkkuun
Nasima kertoi ettei Jussi sovi puhemieheksi, koska sallii rasismin. Mihin toimiin perussuomalaiset ryhtyvät? Kuka nouse4928593Razmyar on säälittävä - puhemiehellä ei ole mitään syytä ottaa kantaa tähän "silmäkohuun"
jonka toimittajat sai aikaan. Asia ei kuulu puhemiehelle millään lailla. Razmyar haluaa taas vaan huomiota. Mutta jos r1205872Miten Eerolan silmäkuvat voivat levitä muutamassa tunnissa ympäri maailmaa?
Seuraako koko maailma persujen ja erityisesti Eerolan somea reaaliajassa? Edes kansanedustajan itsemurha eduskuntatalos2824877Siviilipalvelusmies Halla-aho normalisoi rasismin perussuomalaisissa
SMP:n tuhkille perustettu puolue ei ollut ihmisiä vastaan, vaan instituutiokriittinen. "Missä EU - siellä ongelma", oli584645Suomalaisilta vaaditaan valtavasti suvaitsevaisuutta - miksi sitä ei vaadita muslimeilta
Suomalaisilta vaaditaan kaikkea, pitää olla suvaitsevainen ja hyväksyä vieraiden tavat, rasisti ei saa olla jne. Miksi s724179Juuri Suomen valtamedian toimittajat teki "silmävääntelystä" sen kohun
ja ilmeisesti ottivat yhteyttä myös ulkomaisiin medioihin, että katsokaas tätä. Mutta Japanin medioissa on asiaan suhta1603940SDP:n kansanedustaja Marko Asell: Suomen myönnettävä maahanmuuton ongelmat
Hänen mielestään Suomen pitää pyrkiä rajoittamaan jyrkästi turvapaikanhakijoiden pääsyä maahan ja hän arvioi, että maaha1723788- 901718
- 991292
- 47899