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
      60
      5634
    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
      218
      3733
    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ä
      18
      2478
    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
      22
      2416
    5. Puolen vuoden koeaika

      Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro
      Ikävä
      9
      1318
    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
      67
      1094
    7. Onko kaivattusi

      liian vetovoimainen seksuaalisesti?
      Ikävä
      91
      1086
    8. Huonosti.

      Oletko kohdellut kaivattuasi huonosti? Miksi?
      Ikävä
      102
      1069
    9. Rötösherra käräjillä

      Ähtäriläisyrityksen epärehellisyys oli niin suurta, että mies yhtiön takaa oli lähellä saada ehdotonta vankeutta. Vaikeu
      Ähtäri
      18
      1052
    10. Häneen rakastuminen oli sellaista

      että aina uskoi ja luotti että kyllä tästä vielä edetään jotenkin. Se olikin vain rakastuneen toiveajattelua kaikki. Ta
      Ikävä
      79
      985
    Aihe