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

501

    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. Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?

      Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv
      Maailman menoa
      186
      4239
    2. "Mitä sä nainen tuot sitten pöytään" ?

      Jos mies provaidaa ja suojelee... Pitääkö miesten kysyä tuollaisia?
      Ikävä
      93
      2777
    3. Aktivistinainen pysäytti ICE-agentin luodin päällään USA:ssa!

      Video ampumistilanteesta: https://edition.cnn.com/2026/01/07/us/video/ice-shooting-minneapolis-digvid "Media: ICE:n am
      Maailman menoa
      145
      2284
    4. Minja jytkyttää vas.liiton kannatusta ylöspäin

      Alkaa raavaat duunarimiehetkin palaamaan vasemmistoliiton kannattajiksi. Eduskunnassahan on vain kaksi työntekijöiden p
      Maailman menoa
      85
      2251
    5. 6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta

      Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark
      Maailman menoa
      31
      2154
    6. Tiedän ettei

      Meistä mitään tule. Toinen oli sinulle tärkeämpi
      Ikävä
      19
      2041
    7. Oikeistopuolueiden kannatus vain 37,8 %, vasemmiston 43,0 %

      Keskustaan jää 17,4 prosenttia ja loput ovat sitten mitä ovat. Mutta selvästikin Suomen kansa on vasemmalle kallellaan.
      Maailman menoa
      30
      2017
    8. Mahonselän jäät - Saaristokunta Lieksa brutaalisti kriisin partaalla!

      Lieksan loppuvuoden hyvän kehityksen jälkeen ei olisi uskonut että palstan ahkerista kommentoijista huolimatta matkailu
      Lieksa
      137
      1841
    9. Laitetaan nyt kirjaimet kohdilleen

      kuka rakastaa ja ketä ?
      Ikävä
      85
      1839
    10. Ekologinen kommunismi tulee voittamaan fossiilikapitalismin

      Kiina on mahtitekijä uusiutuvien energialähteiden kehityksessä, ja Trump osoitus viimeisestä öljyn perään itkemisestä, m
      Maailman menoa
      20
      1836
    Aihe