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
550
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
Kunnissa - siis myös kaupungeissa - viihtyvät ovat kommunisteja
Nehän ovat osa yhteiskunnan tuottamia instansseja, joista on vain haittaa veronmaksajille ja yrittäjlle, kuten ollaan ve283078Järkevä ehdotus: reilun 8 miljardin euron veronkorotukset
Nykyinen hallitus on päästänyt valtion tulopuolen rappeutumaan, vaikka varallisuutta on Suomessa enemmän kuin koskaan. U662128Iski taas katumus kun en jutellut sun kanssa
Silloin kun halusit. Mutta en enää voi sille mitään, en saa muutettua sitä hetkeä..1801948SDP todellisuudessa pahin pettäjä koskaan - se syyllistyi valtiopetokseen 1918
kun aloittivat kapinan maan laillista valtiojärjestystä vastaan. Punaiset saivat tukea Neuvosto-Venäjän bolsevikeilta,1211894Miksei asevelvollisuuden kuluja lasketa Nato-menoihin?
Koskela (vas) kysyy aiheellisesti, että kun kerran palkka-armejaan perustuvat maat laskevat kysesestä toiminnasta aiheut11735Miksi vasemmisto ei vastusta ulkomaisen halpatyövoiman maahantuontia
joka heikentää suomalaisten duunarien työmarkkina-asemaa ja rasittaa Suomen julkista taloutta? Vasemmistolla ideologin931539Purralla luistaa hihna isolla pyörällä
Näki taas eilisillan tv-tentissä kuinka paniikissa oli kannatusromahduksen takia. Ei saanut kuin tiuskittua yksittäisiä301383- 881197
Miksi kaikki avioeronneet miehet eivät kunnioita naisia?
Niin. Miksi avioeronneet miehet kohtelevat huonosti naisia, jotka lähestyvät heitä? Tämä on kokemuksen rintaääntä. Tämä2091113Martina Aitolehti murtui Erikoisjoukoissa Matias Petäistön käsittelyssä - Tästä oli kyse
Yksi Erikoisjoukot-kauden julkkiskisaajista on yrittäjä ja hyvinvointivalmentaja Martina Aitolehti. Aitolehti on pärjän111048