Difference between revisions of "Destructor/fi"
From Free Pascal wiki
Jump to navigationJump to searchLine 1: | Line 1: | ||
{{Destructor}} | {{Destructor}} | ||
− | [[Reserved word/fi|Varattu sana]] <syntaxhighlight lang="pascal" | + | [[Reserved word/fi|Varattu sana]] <syntaxhighlight lang="pascal" inline>destructor</syntaxhighlight> kuuluu [[object-oriented programming/fi|olio-ohjelmointiin]]. |
Purkajaa käytetään vapauttamaan käytetyt resurssit kuten muisti. | Purkajaa käytetään vapauttamaan käytetyt resurssit kuten muisti. | ||
Purkaja on aina tehtävä siten, että kun muistia vapautetaan niin koko [[Class/fi|luokan]] (olion) käyttämä muisti vapautetaan eikä näin ollen tapahdu muistivuotoa. | Purkaja on aina tehtävä siten, että kun muistia vapautetaan niin koko [[Class/fi|luokan]] (olion) käyttämä muisti vapautetaan eikä näin ollen tapahdu muistivuotoa. | ||
− | Olion purkaminen tapahtuu kutsumalla luokan <syntaxhighlight lang="pascal" | + | Olion purkaminen tapahtuu kutsumalla luokan <syntaxhighlight lang="pascal" inline>free</syntaxhighlight> [[Method/fi|metodia]]. <syntaxhighlight lang="pascal" inline>Free</syntaxhighlight>:n kutsuminen aiheuttaa <syntaxhighlight lang="pascal" inline>destroy</syntaxhighlight>-kutsun. |
− | Siinä myös tarkistetaan ettei [[Self/fi|<syntaxhighlight lang="pascal" | + | Siinä myös tarkistetaan ettei [[Self/fi|<syntaxhighlight lang="pascal" inline>self</syntaxhighlight>]]-[[Variable/fi|muuttujan]] arvo ole [[Nil/fi|<syntaxhighlight lang="pascal" inline>nil</syntaxhighlight>]]. |
Latest revision as of 17:27, 6 August 2022
│
Deutsch (de) │
English (en) │
suomi (fi) │
Varattu sana destructor
kuuluu olio-ohjelmointiin.
Purkajaa käytetään vapauttamaan käytetyt resurssit kuten muisti.
Purkaja on aina tehtävä siten, että kun muistia vapautetaan niin koko luokan (olion) käyttämä muisti vapautetaan eikä näin ollen tapahdu muistivuotoa.
Olion purkaminen tapahtuu kutsumalla luokan free
metodia. Free
:n kutsuminen aiheuttaa destroy
-kutsun.
Siinä myös tarkistetaan ettei self
-muuttujan arvo ole nil
.
Esimerkiksi:
program Project1;
{$mode objfpc}{$H+}
type
// luokan määritelmä
{ TClass }
TClass = Class
constructor Create;
destructor Destroy; override; // sallii vanhemman luokan purkajan käytön
end;
// luokan rakentaja
constructor TClass.Create;
begin
Writeln('Rakennetaan olio');
end;
// luokan purkaja
destructor TClass.Destroy;
begin
Writeln('Puretaan olio');
inherited; // Käyttää myös vanhemman luokan purkajaa
end;
var
// kerrotaan luokan muuttuja
myclass: TClass;
begin
myclass:= TClass.Create; // alustaa olion kutsumalla oman luokkaansa rakentajaa
Writeln ('Jotain koodia ...');
myclass.Free; // Free kutsuu oman luokan Destroy purkajaa
Writeln ('Paina jotain näppäintä');
Readln;
end.