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
544
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
Maahanmuuttajien vaikutus Suomen valtiontalouteen positiivinen
Maahanmuuttajat maksavat enemmän tuloveroja kuin saavat tulonsiirtoja. Eroavat persuista tässä suhteessa. Persuista o4064920Olen Päivi Räsäsen puolella
En oe uskovainen enkä kristillisdemograattikaan mutta onhan tuo naurettavaa laittaa Päivi syylliseksi omasta mielipit4953134Ukrainan tiedustelun huippupotti - Iski ensin yhteen satamaan, sitten toiseen
Ukrainan tiedustelupalvelu SBU kertoo johtaneensa operaatiota, jossa on isketty drooneilla Venäjän tärkeimpiin satamiin1292641Nuhteettomia edustajia
Korkein oikeus tuomitsi Päivi Räsäsen kiihottamisesta kansanryhmää vastaan Kansanedustaja Päivi Räsästä (kd.) vastaan no2442605Ulkomaalaistaustaiset tulevat kalliiksi yhteiskunnalle.
Selvitys: Ulkomaalaistaustaiset saivat selvästi enemmän työttömyysetuuksia ja toimeentulotukea kuin suomalaistaustaiset.1952583"Mieheksi ja naiseksi hän heidät loi."
Räsäsen tuomio on iso harppaus woke-valtioksi. – Tässä maassa on nyt selvästi kiellettyjä sanoja ja ajatusrikoksia. –841714Päivi Räsänen tuomittiin rikoksesta...
...kiihottamisesta kansanryhmää vastaan. Tuskin tajuaa silti vieläkään, että raamattu ei ole lakikirja. https://yle.fi/a6241618Huumeliika mellastaa Suomussalmella
Varastanut S-marketissa, jopa kolme kertaa päivässä. Päätekijä pitänyt kuumeorjanaan naistaan useita vuosia. Mies potki161444Korkein oikeus antaa Räsäselle vastauksen klo 9. Varmaan vapautus
Miten veikkaat että Päiville käypi? Päivi pitää lehdistökonferenssin klo 9.30. Koko media on läsnä. 7 v taistelu on ohii4791375Ihana sinä (m)
Oispa kiva nähdä sua. Uskomatonta, miten paljon sä pyörit mun ajatuksissa. Oonkohan mä sun mielessä? Haluaisitko nähdä v461161