is ja as

as_and_is

Mikä on varattujen sanojen is ja as tarkoitus?

2

249

    Vastaukset

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

      if Sender is TButton then (Sender as TButton).Caption := '&Ok';

      is vertaa onko objecti tiettyä tyyppiä, as suorittaa tyypinmuunnoksen.

    • sanaa testata

      Varattua sanaa is voidaan testata myös näin.
      Eli aluksi Formille on luotu Memo ja Button sekä Buttonille
      tapahtumankäsittelijä. Sitä on täydennetty näin:



      Tyyppien esittelyosassa on
      ...
      type

      TIhminen = Class
      public
         nimi:String;
         constructor Create(annettuNimi:String);
      end;

      TMies = Class(TIhminen);
      TNainen = CLass(TIhminen);

      { TForm1 }

      TForm1 = class(TForm)
         Button1: TButton;
         Memo1: TMemo;
         procedure Button1Click(Sender: TObject);
      private
         { private declarations }
         procedure kerroSukupuoli(hlo:TIhminen);
      public
         { public declarations }
      end;

      ...

      ja implementation-osaan on täydennetty näin

      ...

      constructor TIhminen.Create(annettuNimi:String);
      begin
         nimi := annettuNimi;
      end;


      procedure TForm1.kerroSukupuoli(hlo:TIhminen);
      begin
         if hlo is TMies then Memo1.Lines.Add(hlo.nimi ' on mies');
         if hlo is TNainen then Memo1.Lines.Add(hlo.nimi ' on nainen');
      end;

      procedure TForm1.Button1Click(Sender: TObject);
      var Mara:TMies;
         Mimuli:TNainen;
      begin
         Memo1.Clear;
         Mara := TMies.Create('Martti');
         Mimuli := TNainen.Create('Minna-Liisa');
         if Mara is TIhminen then Memo1.Lines.Add(Mara.nimi ' on ihminen');
         if Mimuli is TIhminen then Memo1.Lines.Add(Mimuli.nimi ' on ihminen');

         kerroSukupuoli(Mara);
         kerroSukupuoli(Mimuli);

         Mimuli.Free;
         Mara.Free;
      end;

      ...

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa

      Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on
      Yrittäjyys
      63
      6773
    2. Pystyisitkö pitämään

      Näppejä erossa jos tulisi siihen tilaisuus
      Ikävä
      68
      6762
    3. Sture Fjäder haluaa tuensaajien nimet julki

      Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h
      Maailman menoa
      146
      5424
    4. Luotathan siihen tunteeseen, joka välillämme on?

      Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist
      Ikävä
      50
      4473
    5. En saa sua mielestäni vaikka tekisin mitä

      Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛
      Ikävä
      20
      4089
    6. Onnettomuus

      Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?
      Kuhmo
      5
      3640
    7. Milloin viimeksi näit kaivattusi?

      Toimisitko nyt toisin kuin siinä tilanteessa teit?
      Ikävä
      37
      3218
    8. Tuntuuko ettet tiedä

      Enää miten toimia mun suhteen. Kun en taida tietää itsekään
      Ikävä
      28
      3143
    9. Maahanmuuttajat torjuvat marjanpoiminnan - "emme ole rottia"

      Ruotsalaisen journalistin selvitys paljasti, miksi maahanmuuttajat kieltäytyvät työstä. Taustalla vaikuttavat kulttuuris
      Maailman menoa
      70
      2752
    10. Köysi alkaa kiristyä putinin kaulalla....

      Putin pelkää eniten juuri omaa porukkaansa, ja siihen on varmasti syytä kun sota ei ole mennyt hyvin, tappiot ovat valta
      Maailman menoa
      39
      2250
    Aihe