Mikä on avainsanan virtual merkitys?
Vastaukset 4
- 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
Ampuminen kylpylässä
Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa461095Moottoripyöräonnettomuus
Mopomiitissä tapahtunut onnettomuus ja uutisointi. Ajoradan ylityksen vaarallisuudesta ei mitään uutisointia. Ei myöskää83887- 164877
Jos oikeasti haluat mies
Tiedät mitä on tehtävä. Luotan, että etenet jos haluat. En voi tehdä enää mitään kun ei ole numeroasi.105824Uusi ruokapaikka
Tuleeko Haapavedelle uusi lounaspaikka ,haetaan kokkia? Uusi firma kyseessä29775Kerro minulle totuus
Minä haluan kuulla sen nyt. Kenen kanssa sinä olet nykyisin, ja miksi jätit minut? 🐒197700Miten sinä voit?
Kysytkö kukaan sitä sinulta? Olen huomannut, että jos kohtaa empaattisen ihmisen ja hän kysyy noin, saattaa padot murtua93697Hautakivien massapoisto aloitettu Härkökankaan vanhalla hautausmaalla kaikessa hiljaisuudessa!
Suomussalmen seurakunnan kirkkoneuvosto on tehnyt historiansa surullisimman päätöksen hautojen haltuunotosta ja raivauks40653- 22612
- 61592
VILLISIKALAUMA TULOSSA IISALMEEN
Yle: Poliisi varoittaa Iisalmen keskustaa lähestyvästä villisikalaumasta Poliisi on pyytänyt Pohjois-Savossa Iisalmessa42576Hei, voitko kuunnella
Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu118563Useita poliisiautoja kunnantalolla
Maijojen kyydissä tuttuja naamoja ja nyt kannetaan arkistolaatikoita autoihin. Nyt se on alkanut. Pidätykset.12535Kemijärvellä vesionnettomuus
Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as9531On todella ikävää
Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit78510- 39485
- 57475
- 74475
sinulle....
Olen ymmärtänyt, ettei minua haluta enää takaisin. Mitään pahaa en koskaan halunnut sinulle. Ikävä että kuvittelit niin.75467- 55467