Component Oluşturup silmede ram kullanımı

[mrmarman]

Bir ekleme daha yapayım, free edildikten sonra trim işlemini uygularsanız başa döndüğünü de görebilirsiniz.

Processin ardışık işlemlerde performans için windows'un hafıza yönetimi tarafından bir süre daha yer tutacak, belirli bir süre sonra kullanımı sona eren kısım iade edilecektir.

Belki de takıldığınız konu budur

  TButton(Sender).Enabled := False;
    TrimAppMemorySize();

   Memo1.Lines.Add( '------------------------------------------------------' );

   Memo1.Lines.Add( 'Trim Memory ' +#9 +FormatFloat( '#,###0',ProcessMemory / 1024 ) + ' KB' );

   CreateShapes( 2000 );
   Memo1.Lines.Add( '1st measurement '+#9 + FormatFloat( '#,###0',ProcessMemory / 1024 ) + ' KB' );

   FreeShapes;
   Memo1.Lines.Add( '2nd measurement '+#9 + FormatFloat( '#,###0',ProcessMemory / 1024 ) + ' KB' );

   TrimAppMemorySize();
   Memo1.Lines.Add( '(Trimmed again)'+#9 + FormatFloat( '#,###0',ProcessMemory / 1024 ) + ' KB' );

 TButton(Sender).Enabled := True;

[tabikisura10]

hocam o kadar uğraştınız tekrar çok teşekkür ederim.

[Tuğrul HELVACI]

(06-06-2020, Saat: 23:39)SimaWB Adlı Kullanıcıdan Alıntı:

(06-06-2020, Saat: 12:53)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: 200 * 100 kadar TShape oluşturuyorsunuz ama 99 tane siliyorsunuz koddan gördüğüm kadarı ile. Ayrıca dizide sürekli aynı elemanların üzerine yazıyorsunuz.

200 * 99 siliyor desek daha doğru olacak.

@tabikisura10; silme işlemi yaptığınız döngüde i'nin başlangıç değerine dikkat edin.

Mevcut kodda benim görmediğim bir şey mi gördün üstad acaba ?

[Tuğrul HELVACI]

Evet görmüşsün, bir süslü parantez kazası olmuş benim bakışımda 

[SimaWB]

"begin-end"in gözünü seveyim