Virtual

virtuaali

Mikä on avainsanan virtual merkitys?

4

339

    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. Kiva kun SDP alkaa hallitsemaan Suomea

      Vanhat hyvät ajat taas palaavat ja kansa vaurastuu. Muistatteko vielä Sorsan aikakauden? Silloin Suomessa tehtiin jopa
      Maailman menoa
      231
      5847
    2. SDP:n lyhyt selviytymisopas

      1. Komitea on vastaus, oli kysymys mikä tahansa Jos maailma on muuttumassa tai jossain palaa, demari ei hätiköi. Ensin p
      Maailman menoa
      78
      4699
    3. Keskisen kyläkaupassa Temun vaatteita myynnissä?

      Siis mitä? Miksi siis ei itse tilaisi Temusta samoja.
      Maailman menoa
      81
      3508
    4. SÄHKÖLASKU 1600 EUROA Ei tässä ole mitään järkeä

      https://www.is.fi/taloussanomat/art-2000011804443.html Kyllä täysin huijausta nämä sähkömarkkinat. Varsinkin pörssisähk
      Maailman menoa
      246
      2959
    5. Toivoisitko

      Toivoisitko, että kaivattusi olisi introvertimpi tai extrovertimpi? Itsenäinen tai tarvitsisi enemmän apua/sinua? Osoit
      Ikävä
      146
      2719
    6. Olli Rehn: Eläkkeistä pitää leikata. Nyt tuli Lindtmanille kauhun paikka

      jos johtaa seuraavaa hallitusta. Purra: eläkkeisiin ei kosketa. Eikä tällä hallituskaudella varmasti kosketa, mutta seur
      Maailman menoa
      176
      2179
    7. Venäläiset varkaudessa

      Ja venäjä mieliset. Teitä kiinnostaa toisinajattelijat ja trafikista päätellen aika paljonkin. Kunhan aika koitaa tulee
      Varkaus
      259
      1651
    8. Lupajaoston esityslista

      Ilmoitus rakennusvalvonntaan luvattomasta rakentamisesta. esityslistan 6pykälä Kyse on kulttuuritalon rakentamisesta jo
      Pyhäjärvi
      49
      1175
    9. Jorma Uotinen UMK-juontajaksi! Mitä ajatuksia UMK-pesti herättää?

      Professori, laulaja, koreografi ja TTK-tuomari Jorma Uotinen, 75, on yksi tämän vuoden UMK-juontajista. Uotisen rinnall
      Euroviisut
      28
      1098
    10. Haluaisitko kaivattusi

      kanssa ensiksi seksiä ja sen jälkeen puhumista?
      Ikävä
      62
      1086
    Aihe