Virtual

virtuaali

Mikä on avainsanan virtual merkitys?

4

425

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Mika0800

      senkun lisäät vaikkapa formin määrittelyyn:

      procedure test2; virtual;

      laitat kohdistimen -> virtual;

      ja painat Ctrl-F1.

      Miksiköhän Delphin sisäisen ohjeen käyttö on noin vaikeaa ?

      The Virtual directive allows a method in a class to be overriden (replaced) by a same named method in a derived class.

      You would mark a function or procedure as Virtual when you happily allow a programmer who creates a class based on your class to replace its functionality.

      For example, you might allow a base class to paint a canvas in white, but allow a derived class to paint a picture on the canvas instead. Here, the virtual directive is allowing the code to be extended, to be enriched.

      Virtual may be followed by the Abstract directive. This modifies the effect of the virtual directive. It means that the current class must not code the method - it is there only as a placeholder to remind and ensure that derived classes implement it.

      Notes
      Virtual is semantically equivalent to Dynamic. The former is optimised for speed, the latter for memory.

      • kiitos vastauksesta

        En osaa englantia, voitko sanoa saman suomeksi?


      • virtual/dynamic
        kiitos vastauksesta kirjoitti:

        En osaa englantia, voitko sanoa saman suomeksi?

        Tuosta saa sen käsityksen että kun käyttää luokan metodin esittelyssä dynamic (kääntäjän ohjeen/) avainsanan tilalla virtual niin kyseinen luokan metodi
        toimii nopeammin. Jos taas käyttää dynamic avainsanaa niin se vie vähemmän muistia.

        Eli kääntäjä voi rakentaa olioiden metodien kutsun kahdella eri tavalla.


    • niin näet toiminnan

      Virtuaalimetodia voit testata myös tämän esimerkin avulla
      Aluksi luot lomakkeelle napin ja memon sekä napille painamistapahtuman.
      Sen jälkeen lisäät puuttuvan koodin

      ...
      type

      { TForm1 }

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

      TKantaLuokka = class
      public
      function EiVirtuaaliMetodi: string;
      function VirtuaaliMetodi: string; virtual;
      end;

      TLapsiLuokka = class(TKantaLuokka)
      public
      function EiVirtuaaliMetodi: string;
      function VirtuaaliMetodi: string; override;
      end;

      var
      Form1: TForm1;

      implementation

      { TForm1 }

      function TKantaLuokka.EiVirtuaaliMetodi: string;
      begin
      Result := 'TKantaLuokka.EiVirtuaaliMetodi';
      end;

      function TKantaLuokka.VirtuaaliMetodi: string;
      begin
      Result := 'TKantaLuokka.VirtuaaliMetodi';
      end;

      function TLapsiLuokka.EiVirtuaaliMetodi: string;
      begin
      Result := 'TLapsiLuokka.EiVirtuaaliMetodi';
      end;

      function TLapsiLuokka.VirtuaaliMetodi: string;
      begin
      Result := 'TLapsiLuokka.VirtuaaliMetodi';
      end;

      procedure TForm1.Button1Click(Sender: TObject);
      var k: TKantaLuokka;
      l: TKantaLuokka;
      // määritellään lapsiluokalle
      //myös kantaluokka tyyppinen osoitin

      begin
      k := TKantaLuokka.Create;
      l := TLapsiLuokka.Create;
      try
      Memo1.Lines.Add(k.EiVirtuaaliMetodi);
      Memo1.Lines.Add(k.VirtuaaliMetodi);
      Memo1.Lines.Add(l.EiVirtuaaliMetodi);
      Memo1.Lines.Add(l.VirtuaaliMetodi);
      finally
      l.Free;
      k.Free;
      end; // try finally
      end;

      ...

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

    Luetuimmat keskustelut

    1. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      58
      800
    2. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      34
      795
    3. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      746
    4. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      91
      679
    5. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      31
      612
    6. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      40
      537
    7. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      71
      506
    8. Lehtikankaan oppilas kuolema

      Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞
      Kajaani
      9
      502
    9. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      63
      499
    10. 42
      499
    11. Pystyisitkö liikkumaan

      Tai tapailemaan kaivattuasi julkisesti?
      Ikävä
      45
      426
    12. Nyt kaatuu Kuisla

      Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee
      Seinäjoki
      24
      420
    13. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      57
      419
    14. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      36
      407
    15. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      72
      403
    16. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      23
      398
    17. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      103
      398
    18. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      397
    19. Emme pääse koskaan

      Tästä. Sinä et suostu enkä minä suostu
      Ikävä
      38
      394
    20. 39
      393
    Aihe