Rakentaja

constructor

Pascalissa olio rakennetaan tyypillisesti näin:
Olio := TLuokka.Create;

Mutta olen havainnut että käytössä on muunkin tyyppisiä tapoja. Olisi hyvä saada selitystä näille muille tavoille.

12

391

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Ugli

      Pascalissa voi olla useita rakentajia. Tällöin voidaan olio alustaa erilailla vaikka käytössä olisi sama määrä ja samanlaiset parametrit.

      Oliot voidaan alustaa vaikkapa näin

      Olio1 := TLuokka.Create1;
      Olio2 := TLuokka.Create2;

      Tällöin ne on esitelty

      constructor TLuokka.Create1;

      ja

      constructor TLuokka.Create2;

      • Guru tai not

        Moi,

        Eli siis lisäisin vielä tuohon vastukseen hieman lisää tietoa, Olio voidaan alustaa periaatteessa vain yhdellä tavalla, varaamalla sille muistia, joka tapahtuu aina kutsumalla luokan (olion) rakentajaa, rakentajalla voi olla mikä tahansa nimi/nimiä ja sillä/niillä voi olla 0-X parametria, riippuen käyttötarkoituksesta.


      • mies..
        Guru tai not kirjoitti:

        Moi,

        Eli siis lisäisin vielä tuohon vastukseen hieman lisää tietoa, Olio voidaan alustaa periaatteessa vain yhdellä tavalla, varaamalla sille muistia, joka tapahtuu aina kutsumalla luokan (olion) rakentajaa, rakentajalla voi olla mikä tahansa nimi/nimiä ja sillä/niillä voi olla 0-X parametria, riippuen käyttötarkoituksesta.

        Ehkä olen jo wanha, mutta minun aikoina puhuttiin "Muodostin metodeista"??

        Toki voi olla monta muodostin-metodia!, jopa saman nimisiä, kunhan niillä on eri parametrit ja overload; on määritelty lopussa!

        http://www.delphibasics.co.uk/RTL.asp?Name=Overload

        Ei tässä pitäisi olla mitään kummaa! Muodostetaan itse olio muistiin tavalla tai toisella! Niillä vaihtoehdoilla joilla itse olemme sen määritelleet koodissa!


      • poiju-poiju
        mies.. kirjoitti:

        Ehkä olen jo wanha, mutta minun aikoina puhuttiin "Muodostin metodeista"??

        Toki voi olla monta muodostin-metodia!, jopa saman nimisiä, kunhan niillä on eri parametrit ja overload; on määritelty lopussa!

        http://www.delphibasics.co.uk/RTL.asp?Name=Overload

        Ei tässä pitäisi olla mitään kummaa! Muodostetaan itse olio muistiin tavalla tai toisella! Niillä vaihtoehdoilla joilla itse olemme sen määritelleet koodissa!

        Mielestäni nimet:
        - rakentaja constructor
        - purkaja destructor

        kuuvaavat hyvin asiaa.

        Onko joku virallisempi nimipari sitten olemassa?


      • huomaa myös tämä
        mies.. kirjoitti:

        Ehkä olen jo wanha, mutta minun aikoina puhuttiin "Muodostin metodeista"??

        Toki voi olla monta muodostin-metodia!, jopa saman nimisiä, kunhan niillä on eri parametrit ja overload; on määritelty lopussa!

        http://www.delphibasics.co.uk/RTL.asp?Name=Overload

        Ei tässä pitäisi olla mitään kummaa! Muodostetaan itse olio muistiin tavalla tai toisella! Niillä vaihtoehdoilla joilla itse olemme sen määritelleet koodissa!

        Paljon olioita käyttänyt huomaa sen edun että miten kätevää on kun voi käyttää monia rakentajia samoilla parametreillä. Esim. voi luoda hyvin erilaisia olioita vaikka parametrinä on vain yksi boolean tyyppinen muuttuja. Tämä ei onnistu(ne) muilla kielillä vaan niissä joutuu esittelemään vastaavassa tilanteessa useinmpia parametrejä!


      • mies..
        poiju-poiju kirjoitti:

        Mielestäni nimet:
        - rakentaja constructor
        - purkaja destructor

        kuuvaavat hyvin asiaa.

        Onko joku virallisempi nimipari sitten olemassa?

        Mitä nyt vuodesta 1998 ollut olio-ohjelmoinnin kanssa tekemisissä, niin muodostin (muodostinmetodi) ja tuhoaja (tuhoajametodi) :D

        Noh! Sama mitä nimeä käyttää, kunhan itse älyää asian merkityksen parhaiten :)


    • Kokeile toiminta

      Se miten rakentajat (muodostimet) ja purkajat (hajoittimet) toimivat Pascal:ssa tai jossain muussa kielessä kannattaa itse kokeilla esim. seuraavan tapaisella ohjelmalla.
      Lomakkeella on luotu button ja memo komponentti ja muut tarvittavat täydennykset löytyvät alla olevasta listauksesta:


      type

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

      TLuokka = class
      private
      public
         constructor Create;
         destructor Destroy; override;
      end;

      TLapsiLuokka = class(Tluokka)
      private
      public
         constructor Create;
         destructor Destroy; override;
      end;

      var
         Form1: TForm1;

      ...

      ja implementation -osa

      ...

      procedure Tulosta(s:string);
      begin
         Form1.Memo1.Lines.add(s);
      end;

      constructor TLuokka.Create;
      begin
         Tulosta('TLuokka.Create.');
      end;

      destructor TLuokka.Destroy;
      begin
         Tulosta('TLuokka.Destroy.');
         inherited Destroy;
      end;

      constructor TLapsiLuokka.Create;
      begin
         Tulosta('TLapsiLuokka.Create alkuosa.');
         inherited;
         Tulosta('TLapsiLuokka.Create loppuosa.');
      end;

      destructor TLapsiLuokka.Destroy;
      begin
         Tulosta('TLapsiLuokka.Destroy alkuosa.');
         inherited Destroy;
         Tulosta('TLapsiLuokka.Destroy loppuosa.');
      end;

      procedure TForm1.Button1Click(Sender: TObject);
      var LL:TLapsiLuokka;
      begin
         LL := TLapsiLuokka.create;
         Tulosta('Muu suoritus.');
         FreeAndNil(LL);
      end;


      ...

      Ohjelma tulostaa Memoon nappia painettaessa seuraavan tekstit:

      TLapsiLuokka.Create alkuosa.
      TLuokka.Create.
      TLapsiLuokka.Create loppuosa.
      Muu suoritus.
      TLapsiLuokka.Destroy alkuosa.
      TLuokka.Destroy.
      TLapsiLuokka.Destroy loppuosa.

    • Hyvää selitystä kaipaava

      Joskus tulee sellaisia erikoistapauksia eteen että rakentaja ei ole
      täysin samaa tyyppiä kuin mitä sen olio on. Osaako joku selittää tämän tarkemmin.


      esim.

      var Olio:TStrings;

      ...
      Olio := TLuokka.Create;

      • mies..

        Jos luokka on periytynyt jostain alemmasta luokasta, voidaan olio luoda näin.

        //==================

        TLuokka = class....

        TPeriytyvaLuokka = class( TLuokka )...

        var
        olio: TLuokka;
        begin
        olio := TPeriytyvaLuokka.Create;
        ...
        end;

        Näin sitten myöhemmässä koodissa voidaan tehdä tarkistus..

        if Not ( olio is TPeriytyvaLuokka) then
        begin
        // -> eli olio on muodostettu > TLuokka.Create;
        end;


      • No niin
        mies.. kirjoitti:

        Jos luokka on periytynyt jostain alemmasta luokasta, voidaan olio luoda näin.

        //==================

        TLuokka = class....

        TPeriytyvaLuokka = class( TLuokka )...

        var
        olio: TLuokka;
        begin
        olio := TPeriytyvaLuokka.Create;
        ...
        end;

        Näin sitten myöhemmässä koodissa voidaan tehdä tarkistus..

        if Not ( olio is TPeriytyvaLuokka) then
        begin
        // -> eli olio on muodostettu > TLuokka.Create;
        end;

        Ei taida missään muussa kielessä olion synnyttäminen olla näin monipuolista kuin mitä se on Pascal:ssa ja Delphissä?


      • Mika0800

        imutapa itsellesi ICS (Internet Component Suite), esim. täältä:

        http://www.overbyte.be/eng/products/ics.html

        ja sitten esimerkkiin:

        Jos teet yleisen TWSocket -palvelimen (imuta myös twsocket.hlp ja katso helpistä Listen -metodi), niin:

        Kun palvelimeesi otetaan yhteyttä (esim, jos on TCP -palvelin portissa 80, voit ottaa yhteyttä selaimella näin: http://127.0.0.1/
        )

        niin:

        OnConnectionAvailable -käsittelijässä tyypillisesti luodaan uusi TWSocket TAI sen johdannainen, hyväksytään tuleva yhteys Accept -metodilla ja TWSocket:in Dup -metodilla korvataan TWSocketin Handle Acceptin palauttamalla.

        Tässä voi olla näppärää tehdä näin:

        type

        TOmaSocket = class(TWSocket)

        // muita määrittelyjä tähän ...

        end;

        TSocketType = class of TWSocket;


        var
        MySocketType : TSocketType = TWSocket;


        ja sitten em. OnConnectionAvailable -käsittelijässä:

        var
        ANewConn : TWSocket;

        begin

        //

        ANewConn := MySocketType.Create(nil);

        // nil:in sijasta voit laittaa omistajaksi jotain, joka osaa huolehtia vapautuksesta, mutta vasta, kun luotua oliota ei enää tarvita.

        ...

        Tässä siis oletuksena luodaan TWSocket -tyyppinen olio.

        Mutta voit esim. jostain toisesta UNITista käsin tehdä näin:


        MySocketType := TOmaSocket;



        Tällöin tuon jälkeen, jos/kun uusia yhteydenottoja tulee, niitä varten ei luodakaan TWSocket -tyyppistä oliota, vaan TOmaSocket -tyyppinen olio.

        Vastaavasti, esim. TMemo -tyypin näkyvä Lines -kenttä on TStrings -tyyppiä, mutta sen sisäiseen toteutukseen on käytetty TMemoStrings -tyyppiä.

        Samoin vaikkapa voit määritellä:

        var
        S : TStream;

        ja koodissa, riippuen, mitä milloinkin halutaan, esim:

        S := TFileStream.Create(Filename, fmOpenRead);

        TAI

        S := TMemoryStream.Create;

        TAI

        S := TStringStream.Create('HALOO 0800.');

        ja mikä tahansa noista vapautetaan näin:

        FreeAndNil(S);


      • Mika0800
        No niin kirjoitti:

        Ei taida missään muussa kielessä olion synnyttäminen olla näin monipuolista kuin mitä se on Pascal:ssa ja Delphissä?

        Aivan, ja esim. Javaan verrattuna Delphi on kieleltään monipuolisempi, mm. vaikka molemmissa on oliot, Delphillä voi myös kirjoittaa itsenäisiä proseduureja, jotka eivät ole osa olioita, sekä tarvittaessa käyttää näitä:

        {$ifdef JokinEhto}

        // koodia

        {$else}

        // vaihtoehtoista koodia

        {$endif}

        Lisäksi Delphissä on säikeistä ohjelmointia varten selkeästi erikseen TCriticalSection, TEvent jne, eikä niiden korvikkeeksi sekavaa Monitor -konseptia kuten Javassa.

        Delphi on monessa yrityksessä aliarvostettu.

        Tosiasiassa Delphi on osaavissa käsissä erittäin pätevä työväline, nopeudeltaan oikein käytettynä samaa luokkaa kuin C/C , mutta niitä (sekä Javaa) huomattavasti selkeämpää.


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

    Luetuimmat keskustelut

    1. Marin pyöräili jalkakäytävällä. Aikuinen ihminen! Vai onko?

      https://www.seiska.fi/vain-seiskassa/hups-sanna-marin-ja-joni-rakas-kaahasivat-fillareilla-jalkakaytavalla-paljonkertova
      Maailman menoa
      220
      2894
    2. TULI PALO HAAPAVEELLÄ

      Omakotitalo tuhoutui tulipalossa Haapavedellä varhain torstaiaamuna, pelastuslaitos kertoo. Palokunnan saapuessa kohtee
      Haapavesi
      16
      1774
    3. Miten sua nyt

      Pitäisi lähestyä tai ylipäätään suhtautua mihinkään. Kyselenkö kuulumisia vai juttelenko päivän säästä. Vai hymyilenkö p
      Ikävä
      77
      1025
    4. Niina Lahtinen avautuu erikoisesta "krapula-metodista" ennen suoraa lähetystä: "Kuin mulla olisi..."

      Kiitos, Niina! Upeasti vedit TTK-parketilla. Tsemppiä tuleviin tansseihin vaikkapa tuolla "krapulametodilla"! Lue Lahti
      Tanssii tähtien kanssa
      29
      1012
    5. Toivon vain

      Ettet enää välittäisi. Kun näet niin ohitatko. Ettei silmissäsi loistaisi enää mikään minut nähdessäni. Ei sitä pilkettä
      Ikävä
      4
      1009
    6. Harmailla autoilla liikkuvat vorot

      Keitäs sankareita nämä ovat? https://www.kainuunsanomat.fi/artikkeli/harmailla-autoilla-liikkuvat-vorot-ovat-tehneet-us
      Suomussalmi
      16
      891
    7. Jenni Haukio ja Sauli Niinistö

      Ero. Näinhän se menee kun ikäeroa on riittävästi. https://www.iltalehti.fi/viihdeuutiset/a/1c94ff48-185d-4d95-aff5-3e93
      Maailman menoa
      22
      864
    8. Kuka on tämä henkilö

      jonka pullukkaprinsessa kertoilee haisevan? Ennen nykyistä se oli erään seksuaalirikoksesta tuomitun tyypin kanssa, muit
      Kotimaiset julkkisjuorut
      93
      832
    9. Minä näen sinut

      Näen kuka olet. Osaan laskea. Olen todella, siis todella hämmentynyt, ihastunut, vaivautunut ja ehkä eniten todella epäu
      Ikävä
      26
      795
    10. Hyvää huomenta ja kivaa päivää

      hyvää huomenta ja kivaa päivää 😊🌞☕❤️
      Ikävä
      164
      782
    Aihe