IfThen -funktion käyttö

ifthen kysymys

Kun uses lauseeseen lisää math,StrUtils -unitit niin voi käyttää IfThen-funktiota. Mikä on tämän funktion käyttötarkoitus?

7

513

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      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

    1. Vedonlyöntiä .

      Olen valmis lyömään ison vedon , että homma kaatuu . Jos kerta Sivonen ei lähde mukaan , niin ei tuoho usko kukaan muuka
      Ähtäri
      32
      3335
    2. Mikä on pahinta, mitä kaivatullesi

      pelkäät tapahtuvan? Jos kuolemaa, vakavia sairauksia yms. ei lasketa?
      Ikävä
      103
      2525
    3. Turvaan tulleet lähettävät omia lapsiaan vaaraan - hullua

      MOT-ohjelman jakso ”Loma vaihtui kahleisiin” kertoi, kuinka Suomessa ja muualla Euroopassa asuvat somaliperheet lähettäv
      Maailman menoa
      69
      2488
    4. Mikä on sun mielestä suurin kusetus maailmassa?

      Mikä on sun mielestä suurin kusetus maailmassa?
      Ikävä
      83
      2054
    5. Minkä tunteen tunnet

      juuri nyt? ap kiitollisuuden.
      Tunteet
      41
      1398
    6. rakastan jotakin

      en uskalla sanoa sitä täällä ääneen
      Ikävä
      11
      1258
    7. Päivi Räsänen sai kutsun kongressiin todistajaksi.

      Pystyykö Päivi pysymään totuudessa ja kertomaan kongressille, että raamattu ei ole lakikirja jota pitäisi noudattaa poli
      Maailman menoa
      378
      1016
    8. Minkä kouluarvosanan (4-10) annat Thank God, sä tulit! sarjalle?

      Katsoitko Thank God, sä tulit!? Uusi viihdeohjelma ei ollut kaikkien makuun, mutta jotkut tykkäsivät. Minkä kouluarvos
      Tv-sarjat
      34
      813
    9. TVssä TomCruisen superjännä Vaarallinen tehtävä Mission Impossible Rogue Nation

      Alkaa uskomattomalla lentokone kuvauksella. Toimintaelokuvan jatko-osa agentti (Tom Cruise) on hankaluuksissa, kun järje
      Maailman menoa
      28
      798
    10. Kaikkea hyvää kaikki

      Kaikkea hyvää kaikki ja positiivisia ja hyviä asioita. Kylmää on kovia pakkasia. Pikku hiljaa kevättä kohti taas. Voimaa
      Ikävä
      6
      740
    Aihe