free işleminde hata

kadirkurtoglu · Mesaj gönderen **kadirkurtoglu** » 15 Ağu 2005 02:21

s.a. arkadaşlar formu application.create form yöntemiyle açtıktan sonra onclose olayına free kodu yazdığımda hata alıyorum. aynı kodu butona yazdığımda çalışıyor. ben bu işlemi formun kapat ikonu ile kapatmak istiyorum. butonla değil. bu konuyla bilgisi olan arkadaşlardan yardımlarını bekliyorum.

Mesaj gönderen **vedatkaba** » 15 Ağu 2005 02:24

close olayına

Kod: Tümünü seç

close;
action:=cafree;

yaz dene.

kadirkurtoglu · Mesaj gönderen **kadirkurtoglu** » 15 Ağu 2005 02:31

formun ondestroy olayına yazdığımda problem yok gibi ancak bu seferde ana form kapanırken hata alıyorum...

kadirkurtoglu · Mesaj gönderen **kadirkurtoglu** » 15 Ağu 2005 02:34

teşekkür edrim vedat bey bu yöntem çalıştı problem yok. kolay gelsin....

Mesaj gönderen **vedatkaba** » 15 Ağu 2005 02:50

birde şu şekilde bir yöntem var.
formu eğer

Kod: Tümünü seç

if not assigned(form) then
begin
form:=Tform.create(self);
form.show;
end
else
form.show;
end;

bu şekilde forma bağlanırsanız eğer..
close olayına

Kod: Tümünü seç

action:=cafree;
form:=nil;

ben bu yöntemi kullanırım.sorunsuz çalışıyor.

kadirkurtoglu · Mesaj gönderen **kadirkurtoglu** » 15 Ağu 2005 03:27

hocam sağolun bunlarıda deneyecem. benim yapmaya çalıştığım. programın tamamının hafızada çalışıp fazladan yer işgal etmesini engellemek. bunun için projenin kaynak kodlarından ana form haric diğer formların oluşturulma kodlarını siliyorum. daha sonra formun açılış kodu olarak.

Kod: Tümünü seç

if form2 = nil then
begin
Application.Createform(TForm2, Form2);
Form2.Show;
end else begin
Form2.Show;
end;

yapıyorum bu yöntemle formda 100 adet form varsa ve tamamı hafızada 50 mb yer kaplıyor. anaform ise 5 mb yer kaplıyor. program çalıştığında sadece anaform hafızada olduğu için sadece 5 mb bir bölüm kullanılıyor. diğer formlar show komutuyla açılıyor ve hafızaya dahil oluyor, kapandığında ise free yöntemiyle hafızadan siliniyor.. ben bu sebebten kullanma ihtiyacı hissettim. herşey için teşekkürler.....

Mesaj gönderen **fduman** » 15 Ağu 2005 03:35

kadirkurtoglu yazdı:

Kod: Tümünü seç

if form2 = nil then
begin
Application.Createform(TForm2, Form2);
Form2.Show;
end else begin
Form2.Show;
end;

CreateForm Yerine Create methodunu kullanman daha iyi. Bir de böyle alengirli bir if ifadesine gerek yok. Ben olsam şöyle yapardım.

Kod: Tümünü seç

if not Assigned(Form2) then
  Form2:= TForm2.Create(Application);
Form2.Show;

Mesaj gönderen **vkamadan** » 15 Ağu 2005 03:43

Merhaba ,
Application.CreateForm ile yaratılan formları Release ile bırakmanız karşılaştığınız sorunlara çözüm olabilir.
iyi çalışmalar.

Mesaj gönderen **vedatkaba** » 16 Ağu 2005 08:31

Kod: Tümünü seç

if not assigned(form) then

Burdaki assigned yöntemi forma nil atanıp atanmadığını kontrol eder.Biz formu kapatırken yukarıda yazdığım gibi nil atarsak assigned yöntemi işe yaramış olur.o yüzden forma nil atayıp action:=cafree; ile yoketmek sorunumuzu çözecektir.kolay gelsin.