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

511

    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. Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi

      Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit
      Maailman menoa
      84
      5994
    2. KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!

      STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
      Maailman menoa
      311
      5030
    3. Huono päivä

      Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja
      Ikävä
      20
      2648
    4. Mikä siinä on ettei persuille leikkaukset käy?

      On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei
      Maailman menoa
      46
      2578
    5. Lääppijä Lindtman jäi kiinni itse teosta

      Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852
      Maailman menoa
      77
      1794
    6. Juuri nyt! Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti

      Ai että mä nautin, Tytti erot vireille! "Käytös on kohdistunut avustajia ja toisia kansanedustajia kohtaan, uutisoi STT
      Maailman menoa
      102
      1651
    7. Puolen vuoden koeaika

      Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro
      Ikävä
      17
      1511
    8. Onko kaivattusi

      liian vetovoimainen seksuaalisesti?
      Ikävä
      106
      1427
    9. Olen ihmetellyt yhtä asiaa

      Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm
      Ikävä
      133
      1373
    10. seurakunnan talouspäällikön valinta meni perseelleen

      Nyt on ihan pakko kyseenalaistaa tuo Kemijärven seurakunnan päätös talouspäälliköstä. Valitulla ei ole talouspuolen osaa
      Kemijärvi
      118
      1366
    Aihe