Form kapatırken memory den atma

[aliplane]

Aşağıdaki şekilde create ettiğim formu memoryden atacak şekilde nasıl close edebilirim?
Mdi application kullanmıyorum.
action:=cafree; komutu ile kapattığımda access violation exception alıyorum.

Kod: Tümünü seç

var
childMK:TMKFrm;
begin 
childMK:=TMKFrm.Create(Application);
childMK.Show;

[SimaWB]

Create içerisinde parametre olarak (Owner parametresi) Application kullandığınız için sizin Free yapmanıza gerek yok. Zaten formunuzun sahibi uygulamanız olduğu için, uygulamayı kapattığınızda hafızada form için ayrılan kısım da serbest kalacaktır.

[aliplane]

Evet,ancak kullanıcı uygulamayı kullandıkça bellekteki size artmazmı?

[SimaWB]

Şimdi aklıma geldi; asıl sorunuzun cevabı olarak; childMK'nın FormClose'unda

Kod: Tümünü seç

Action := caFree; 
childMK := nil;

dener misiniz? Sorunsuz çalışması gerekir diye düşünüyorum.

[aliplane]

childMK := nil; kullanamam çünkü bu komutu openerda yazabilirim.
childMK değişkenini de zaten göremem ki.
showmodal bir form olsaydı formun show edildikten sonra finaly bloğunda yazabilirdim.

[unicorn64]

childMK := nil;
yerine
self:=nil;
olarak kullanabilirsiniz

[Lost Soul]

yanlış hatırlamıyorsam self := nil yemiyordu onclosede

[SimaWB]

childMK := nil; kullanamam çünkü bu komutu openerda yazabilirim.
childMK değişkenini de zaten göremem ki.
showmodal bir form olsaydı formun show edildikten sonra finaly bloğunda yazabilirdim.

"opener"dan kasıt nedir anlayamadım?

Tekrar özetlemek gerekirse; ana formda:

Kod: Tümünü seç

procedure TForm1.Button5Click(Sender: TObject);
var
  childMK: TMKFrm;
begin 
  childMK := TMKFrm.Create(Application);
  childMK.Show;
end;

ve TMKFrm'un tanımlı olduğu Unit'te:

Kod: Tümünü seç

procedure TMKFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Self:= nil;
end;

yaptığınız halde hata alıyorsanız bence problem başka bir yerdedir.

[SimaWB]

yanlış hatırlamıyorsam self := nil yemiyordu onclosede

OnClose'da Self := nil; çalışır ve hatta ikinci formu global tanımladıysanız ve birden çok kez Create kullandıysanız Self := nil'i kullanmalısınız.
Detaylı bilgi için buraya bakılabilir.

Not: bir önceki verdiğim cevapta ikinci form locak tanımlandığı için buna gerek olmayabilir ama yine de emin olmak için memory leak kontrolü yapılabilir.

[Lost Soul]

yanlış hatırlamıyorsam self := nil yemiyordu onclosede

OnClose'da Self := nil; çalışır ve hatta ikinci formu global tanımladıysanız ve birden çok kez Create kullandıysanız Self := nil'i kullanmalısınız.
Detaylı bilgi için buraya bakılabilir.

Not: bir önceki verdiğim cevapta ikinci form locak tanımlandığı için buna gerek olmayabilir ama yine de emin olmak için memory leak kontrolü yapılabilir.

Bu konuyla ilgili bir başlık zamanında açılmıştı. Mesele de assigned ile ilgili bişeydi ve yanlış hatırlamıyorsam soruyu soran da bendim

Bir proje oluşturdum proje içinde Form1 ve Form2 var form1 de bir button var ve form2nin onclosesinde işe şu ibare var

Kod: Tümünü seç

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Self := nil;
end;

form2 button clickte ise aşağıdaki kod var.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TForm2;
begin
  f := nil;
  ShowMessage(VarToStr(Assigned(f)));
  f := TForm2.Create(Application);
  ShowMessage(VarToStr(Assigned(f)));
  f.ShowModal;
  ShowMessage(VarToStr(Assigned(f)));
  f := nil;
  ShowMessage(VarToStr(Assigned(f)));



end;

Sonuç

Kod: Tümünü seç

False
True
True <- Buraya dikkat
False

eğer self := nil işini görüyor olsaydı 3. showmessage de false olmalıydı.
yani; evet action cafree formu free edip memory leakin önüne geçiyor.
fakat self := nil bir anlam ifade etmiyor.

şimdi vaktim kısıtlı geniş bi zamanda bu assigned meselesi ile ilgili bahsettiğim başığı da bulursam koyarım buraya inşallah.

[Lost Soul]

Başlığı buldum İleti başlığı: Re: nil ya da Assigned'den farklı bi komut mu çıktı

Bu da Self := nil meselesi ile ilgili olan kısmı

Bu arada dipnot: OnDestroyda self := nil yazmak da birşeye yaramıyor.

[vkamadan]

@Lost Soul kesinlikle haklı ,
self := nil ile form yokedilirken forma nil atandıktan sonta Assigned = TRUE döndürmeye devam ediyor.

[unicorn64]

sanırım free edilmediği sürece bu durum söz konusu...
şuan deneme şansım yok ama on close da self.free; dense nasıl olur,
bir de aklıma şu geldi, formu create ederken parametre olarak nil geçip denermisiniz...

[SimaWB]

yanlış hatırlamıyorsam self := nil yemiyordu onclosede

OnClose'da Self := nil; çalışır ve hatta ikinci formu global tanımladıysanız ve birden çok kez Create kullandıysanız Self := nil'i kullanmalısınız.
Detaylı bilgi için buraya bakılabilir.

Not: bir önceki verdiğim cevapta ikinci form locak tanımlandığı için buna gerek olmayabilir ama yine de emin olmak için memory leak kontrolü yapılabilir.

Bu konuyla ilgili bir başlık zamanında açılmıştı. Mesele de assigned ile ilgili bişeydi ve yanlış hatırlamıyorsam soruyu soran da bendim

Bir proje oluşturdum proje içinde Form1 ve Form2 var form1 de bir button var ve form2nin onclosesinde işe şu ibare var

Kod: Tümünü seç

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Self := nil;
end;

form2 button clickte ise aşağıdaki kod var.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TForm2;
begin
  f := nil;
  ShowMessage(VarToStr(Assigned(f)));
  f := TForm2.Create(Application);
  ShowMessage(VarToStr(Assigned(f)));
  f.ShowModal;
  ShowMessage(VarToStr(Assigned(f)));
  f := nil;
  ShowMessage(VarToStr(Assigned(f)));



end;

Sonuç

Kod: Tümünü seç

False
True
True <- Buraya dikkat
False

eğer self := nil işini görüyor olsaydı 3. showmessage de false olmalıydı.
yani; evet action cafree formu free edip memory leakin önüne geçiyor.
fakat self := nil bir anlam ifade etmiyor.

şimdi vaktim kısıtlı geniş bi zamanda bu assigned meselesi ile ilgili bahsettiğim başığı da bulursam koyarım buraya inşallah.

Benim de şuanda vaktim yok, müsait olduğumda kontrol edeceğim ama sizin oluşturduğunuz 2. form lokal tanımlanmış. Bense cevabımda özellikle belirtmiştim: "ikinci formu global tanımladıysanız" şeklinde.
Hafta içi vakit bulabilirsem ben de bir iki deneme yapıp burada paylaşırım inşallah.

[Lost Soul]

Globalda sorun yok zaten değişken ismi global olduğu için onclose veya ondestroyda self yerine global değişkenin (yani form2) ismini kullanarak nil ataması yapıldığında Assigned False dönüyor ancak self := nil dendiğinde global değişken için de olsa Assigned True dönüyor.

Yani aşağıdaki metod için

Kod: Tümünü seç

implementation
uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := nil;
  ShowMessage(VarToStr(Assigned(Form2)));
  Form2 := TForm2.Create(Application);
  ShowMessage(VarToStr(Assigned(Form2)));
  Form2.ShowModal;
  ShowMessage(VarToStr(Assigned(Form2)));
  Form2 := nil;
  ShowMessage(VarToStr(Assigned(Form2)));


end;

Kod: Tümünü seç

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form2 := Nil;//-<-----------
end;

dendiğinde sonuç

Kod: Tümünü seç

False
True
False<- Buraya dikkat
False

iken aşağıdaki kullanım için global değişken bile olsa

Kod: Tümünü seç

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Self := nil; //-<-----------
end;

Kod: Tümünü seç

False
True
True<- Buraya dikkat
False

oluyor.



Şimdi memory leak için bu önemli mi? Hayır!
Zira form zaten bellekten atılmış oluyor. Sadece forma atanan referans değer nil olarak değişmiyor. Yani bellek alanı iade edilirken adres değeri sfırlanmıyor. Bu nedenle assigned metodu yemiyor. Fakat değişkenin üyelerine ya da metodlarrına erişmeye çalıştığınızda destoy edildiği için A.V. hatası alırsınız. Yani çok da önemli değil.