procedure of object

Tyypin ihmettelijä!

Mitä tarkoitusta / merkitystä jne haetaan
kun määritellään että jokin tyyppi on muotoa

procedure of object;

9

271

    Vastaukset

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

      Ihan vaan oman tapahtuman (Event) luominen:

      ..........
      type
      TOnMyEvent = procedure(DoThing : Boolean) of object;
      ..........

      TFormX
      private
      procedure OnEvent();
      ....

      Implementation
      ...
      Class.OnMyEvent := OnEvent;


      Eli siis tossa yks esimerkki viel lisää.

      • miksi miksi

        Onko Delphissä myös "function of object"?

        Jos ei, niin onpa onnetonta.

        Jos on, niin sijoitusta ei voi hoitaa syntaksilla

        X := FunctionNimi;

        koska eikös se kutsu funktiota FunktionNimi ja sijoita X:ään sen paluuarvon, vaikka haluttaisiin sijoittaa itse funktio?


      • Saisko vähän täydellisemmän...

        Saisko tästä vähän täydellisemmän esimerkin.
        Mielellään lähes pienen ohjelman palasen verran


      • ...
        miksi miksi kirjoitti:

        Onko Delphissä myös "function of object"?

        Jos ei, niin onpa onnetonta.

        Jos on, niin sijoitusta ei voi hoitaa syntaksilla

        X := FunctionNimi;

        koska eikös se kutsu funktiota FunktionNimi ja sijoita X:ään sen paluuarvon, vaikka haluttaisiin sijoittaa itse funktio?

        X := @FunctionNimi

        function FunctionNimi:integer of object


      • delphiguru
        Saisko vähän täydellisemmän... kirjoitti:

        Saisko tästä vähän täydellisemmän esimerkin.
        Mielellään lähes pienen ohjelman palasen verran

        Delphissä on kyllä vastaavanlainen rakenne function ... of object kuin procedure ... of objectkin on.

        Mutta jo kauan sitten eli 1995-1996 delphi 1-2:n aikoihin, tultiin siihen lopputulokseen, että tapahtumakäsittelijät (event handler) tulee olla proseduureja, ei funktioita.

        Näinollen, vaikka function ... of object on periaatteessa mahdollinen rakenne (ja kääntäjäkin sen kyllä hyväksyy), niin sitä ei tulisi käyttää.

        Perusteluja saattaoi olla useampiakin, mutta itse muistan vain yhden (googlettamalla saattaa löytyä muitakin perusteluja):

        Tyhjän tapahtumakäsittelijän pitäisi vaikuttaa samalla tavalla kuin se, ettei tapahtumakäsittelijää ole lainkaan.

        Funktioissa tämän säännön noudattaminen on mahdotonta, koska funktiolla ei ole oletuspaluuarvoa, vaan funktiossa paluuarvon määrittämättä jättäminen on virhe.

        Ja jos annat jonkin paluuarvon, funktio ei ole enää tyhjä.

        Jos oikein muistan, niin historiallisista syistä delphin VCL:stä löytyy yksi tapahtumakäsittelijä, joka on funktio. Lisää ei siis ole syytä tehdä.

        Oikeampi tapa on siis tämä:

        TBooleanEvent = procedure (Sender:TObject; var B:Boolean) of object;

        tällaista määrittelyä käyttävä luokka siis, samalla, kun testaa, ettei käsittelyrutiinin arvo ole NIL (testataan assigned() -funktiolla). niin alustaa tuon arvon B haluttuun oletusarvoon ennen käsittelijän kutsumista jos käsittelijä NIL.

        Myös kutsuvan luokan välittäminen Sender -parametrillä kuuluu hyviin tapoihin, jollei ole painavaa syytä sen poisjättämiseen.

        miksikö "of object" ?

        Delphissä jokaisen tyypin täytyy olla tarkkaan määritelty.

        tuo "of object" siis kertoo, että tapahtuman käsittelevä proseduuri on metodi, eli siis luokan jäsenproseduuri, ei itsenäinenn proseduuri.

        Tämä on käsittelijän teknisen toteutuksen kannalta tärkeä määritellä.

        Pelkkä procedure tässä (ilman "of object" -määrettä) vaatisi tilaa 4 tavua (= osoitin proseduurin alkuosoitteeseen).

        vastaava metodikutsumääritys ("of object" -määreen kanssa) vaatii 8 tavua (= 4 tavua kuten edellä ja toiset 4 tavua osoitin olion ilmentymään = instance, jälkimmäinen tunnetaan myös nimellä Self, Javassa vastaava on "this").

        em. tavumäärät koskevat 32 -bittisiä Delphin versioita. Jos Delphistä tulee (tai on jo olemassa) 64 -bittinen versio, niin olettaisin tämän tuplaavan em. tavumäärät.

        Delphin ainoa 16-bittinen versio on Delphi 1.0, joka ilmestyi 1995. Sillä tehdyt EXE:t ja .DLL:t toimivat windowseissa windows 95 .. windows XP.

        Delphi 2.0:sta alkaen Delphi on tuottanut 32 -bittisiä binääriohjelmia, joten ne toimivat myös Vistassa.

        Tähän voi Vistan käyttäjä törmätä siksi, että moni asennusohjelma on käännetty Delphi 1.0:lla 16 -bittiseksi, koska se saadaan siten pienemmäksi.

        16 -bittiset ohjelmat siis *eivät* toimi Vistassa.
        Delphi 1.0:lla tehdyt ohjelmat on siis Vistaa varten käännettävä uudelleen Delphi 2.0:lla tai uudemmalla.


      • Eräs ihmettelijä
        miksi miksi kirjoitti:

        Onko Delphissä myös "function of object"?

        Jos ei, niin onpa onnetonta.

        Jos on, niin sijoitusta ei voi hoitaa syntaksilla

        X := FunctionNimi;

        koska eikös se kutsu funktiota FunktionNimi ja sijoita X:ään sen paluuarvon, vaikka haluttaisiin sijoittaa itse funktio?

        Kerroppa miksi se on tärkeää?


      • MKkysyjä
        delphiguru kirjoitti:

        Delphissä on kyllä vastaavanlainen rakenne function ... of object kuin procedure ... of objectkin on.

        Mutta jo kauan sitten eli 1995-1996 delphi 1-2:n aikoihin, tultiin siihen lopputulokseen, että tapahtumakäsittelijät (event handler) tulee olla proseduureja, ei funktioita.

        Näinollen, vaikka function ... of object on periaatteessa mahdollinen rakenne (ja kääntäjäkin sen kyllä hyväksyy), niin sitä ei tulisi käyttää.

        Perusteluja saattaoi olla useampiakin, mutta itse muistan vain yhden (googlettamalla saattaa löytyä muitakin perusteluja):

        Tyhjän tapahtumakäsittelijän pitäisi vaikuttaa samalla tavalla kuin se, ettei tapahtumakäsittelijää ole lainkaan.

        Funktioissa tämän säännön noudattaminen on mahdotonta, koska funktiolla ei ole oletuspaluuarvoa, vaan funktiossa paluuarvon määrittämättä jättäminen on virhe.

        Ja jos annat jonkin paluuarvon, funktio ei ole enää tyhjä.

        Jos oikein muistan, niin historiallisista syistä delphin VCL:stä löytyy yksi tapahtumakäsittelijä, joka on funktio. Lisää ei siis ole syytä tehdä.

        Oikeampi tapa on siis tämä:

        TBooleanEvent = procedure (Sender:TObject; var B:Boolean) of object;

        tällaista määrittelyä käyttävä luokka siis, samalla, kun testaa, ettei käsittelyrutiinin arvo ole NIL (testataan assigned() -funktiolla). niin alustaa tuon arvon B haluttuun oletusarvoon ennen käsittelijän kutsumista jos käsittelijä NIL.

        Myös kutsuvan luokan välittäminen Sender -parametrillä kuuluu hyviin tapoihin, jollei ole painavaa syytä sen poisjättämiseen.

        miksikö "of object" ?

        Delphissä jokaisen tyypin täytyy olla tarkkaan määritelty.

        tuo "of object" siis kertoo, että tapahtuman käsittelevä proseduuri on metodi, eli siis luokan jäsenproseduuri, ei itsenäinenn proseduuri.

        Tämä on käsittelijän teknisen toteutuksen kannalta tärkeä määritellä.

        Pelkkä procedure tässä (ilman "of object" -määrettä) vaatisi tilaa 4 tavua (= osoitin proseduurin alkuosoitteeseen).

        vastaava metodikutsumääritys ("of object" -määreen kanssa) vaatii 8 tavua (= 4 tavua kuten edellä ja toiset 4 tavua osoitin olion ilmentymään = instance, jälkimmäinen tunnetaan myös nimellä Self, Javassa vastaava on "this").

        em. tavumäärät koskevat 32 -bittisiä Delphin versioita. Jos Delphistä tulee (tai on jo olemassa) 64 -bittinen versio, niin olettaisin tämän tuplaavan em. tavumäärät.

        Delphin ainoa 16-bittinen versio on Delphi 1.0, joka ilmestyi 1995. Sillä tehdyt EXE:t ja .DLL:t toimivat windowseissa windows 95 .. windows XP.

        Delphi 2.0:sta alkaen Delphi on tuottanut 32 -bittisiä binääriohjelmia, joten ne toimivat myös Vistassa.

        Tähän voi Vistan käyttäjä törmätä siksi, että moni asennusohjelma on käännetty Delphi 1.0:lla 16 -bittiseksi, koska se saadaan siten pienemmäksi.

        16 -bittiset ohjelmat siis *eivät* toimi Vistassa.
        Delphi 1.0:lla tehdyt ohjelmat on siis Vistaa varten käännettävä uudelleen Delphi 2.0:lla tai uudemmalla.

        Viekö 32-bittisessä versiossa normaali
        olion/luokan procedure
        ( esim tälläinen määrittely:
        procedure TForm1.HuhHuh(a:integer);
        ) sitten myös 8 tavua (2*4 tauva)?


      • Delphiguru80
        MKkysyjä kirjoitti:

        Viekö 32-bittisessä versiossa normaali
        olion/luokan procedure
        ( esim tälläinen määrittely:
        procedure TForm1.HuhHuh(a:integer);
        ) sitten myös 8 tavua (2*4 tauva)?

        Siis tuo 4 tai 8 tavua kuluu viittaukseen:

        4 tavua, kun viitataan proseduuriin proseduraalimuuttujalla, ja

        8 tavua, kun viitataan luokan metodiin metodimuuttujalla (siis of object -määrettä käyttäen).

        Ilman erillisviitettä metodiin, en ymmärrä kysymystäsi, mutta huomaa:

        Delphissä on valikkokohta:

        View / Debug Windows / CPU

        Tuolta voit askeltaa ohjelmaasi konekielikäsky kerrallaan ja seurata millaista koodia Delphi tuottaa kääntäessään ohjelmasi konekielelle.


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

    Luetuimmat keskustelut

    1. Tiedätkö autereen?

      Se on vähän niinkuin sinä. Eräänä päivänä se hehkuttaa eteerisenä, laiskan hauen tavoin. Toisena se iskee kuin nälkäinen
      Tunteet
      13
      2097
    2. Mikä tekee kaivatustasi

      haluttavan?
      Ikävä
      109
      1893
    3. Naisten pitäisi lähestyä miehiä enemmän.

      Milloin viimeksi lähestyit miestä ja pyysit kahville tai treffeille?
      Sinkut
      140
      1562
    4. Luulin olevani ainoa... Mutta jättääkö muutkin tosiaan lääkärikäynnit sivuun?

      Lueskelin netistä uutisia ja iltalehdessä oli juttua, että ihmiset eivät hakeudu hoitoihin. Luulin olevani ainoa, joka t
      Maailman menoa
      100
      1137
    5. Jos Harris saa naiset liikkeelle,niin kenties.....

      Myöskin Nikki Haleyn tukijat lupasivat Harrikselle tukensa.Harris vain 2-3% jäljessä vaikka ei ole edes viellä ehdokas.
      Maailman menoa
      154
      1134
    6. Olit kiinnostunut mutta

      varovaisesti. Elämä koetellut sua mies? 😔
      Ikävä
      76
      1074
    7. Joonas Rask viettänyt omasta

      mielestään kivaa iltaa hyvässä hengessä.. https://www.is.fi/sm-liiga/art-2000010582941.html
      Maailman menoa
      2
      881
    8. Yksi syy miksi kaipaan sua

      On se että luulen sun ymmärtävän mua hyvin. Ollaan jokseenkin samanlaisia vaikka hyvin erilaisia.
      Ikävä
      56
      821
    9. Olet hyvin

      rakastettava ja kaipaan sinua.
      Ikävä
      39
      811
    10. No oletko miten paljon miettinyt

      Sitä että mentäiskö me naimisiin? Mieheltä
      Ikävä
      67
      789
    Aihe