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
478
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
Mies, näen sinua hetken
ja olet mielessä ikuisuuden. Toisia näen ikuisuuden ja he eivät jää mieleen hetkeksikään. Muistan jokaisen kohtaamisen244342Riikka se jytkytti BKT:stä nyt 0,3 prosenttia pois
Ja vain kolmessa kuukaudessa! Vuositasollahan tuo tarkoittaa reilun prosentin pudotusta. Pärjäisi varmaan lasketteluss144018Riikan perintö: ennätysvelka, ennätystyöttömyys ja ennätysverotus
Tavallisen keskituloisen suomalaisen verotus on kireintä vuosikymmeniin, ja ensi vuonna palkansaajien käteen jää vieläki2273778Antti Lindtman kiitti valtiovarainministeri Purraa
Ministeri Purra kertoi ottavasa vastuun EU:n alijäämämenettelyyn joutumisesta. Hän myös sanoi tietävänsä, että Lindtman273028SDP haluaa LISÄÄ veroja bensa-autoille!
Sdp:n vaihtoehtobudjetti esittää polttomoottoriautoille lisää veroja Sdp esittää tuoreessa vaihtoehtobudjetissaan verot522761Suomalaisten enemmistö on (ateisteja / fiksuja / sosialisteja)
Tai jokin noiden yhdistelmä, koska S-ryhmän markkinaosuus päivittäistavarakaupasta on yli 50 prosenttia.132746Riikka Purra on ihana, jämpti
Hän yrittää saada Suomen taas kuntoon. Sanoo asiat suoraan, eikä piiloudu kapulakielen taakse. Riikan kaltaisia päättä1082718"Purra löylytti oppositiota", sanoi naistoimittaja Pöllöraadissa
Kyllä, Purra tekee juuri sitä työtä mitä hänen tuossa asemassa pitää tehdä, hän antaa oppositiolle takaisin samalla mita412397Henkilökohtaisia paljastuksia Dubaista - Kohujulkkis Sofia Belorf on äitipuoli ja puoliso!
Tiesitkö, että Sofia on äitipuoli ja rakastava puoliso? Sofia Belorf saa oman sarjan, jossa seurataan hänen Bling Bling662351K-kauppa on liian kallis. Ei voi S-ryhmäläinen siirtyä tuonne asiakkaaksi
Hintatason ero K-kauppojen ja S-markettien välillä on niin suuri, että S-market ei juurikaan menetä asiakkaitaan K-ketju971849