Virtual

virtuaali

Mikä on avainsanan virtual merkitys?

4

412

    Vastaukset

    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. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      320
      1782
    2. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      75
      1274
    3. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1267
    4. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      134
      1147
    5. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      79
      927
    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      85
      861
    7. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      833
    8. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      117
      787
    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      48
      770
    10. Sitä saattaa vähän hölmöillä

      rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.
      Ikävä
      60
      726
    Aihe