Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Free
#11
TList için bir class helper yazarak da bu sorunu cozebilirsiniz;

Interface

type
 TListHelper = class helper for TList
   public
     procedure Flush; // Listenin içindeki TObject soyundan gelen nesneleri free etmeye yarar... Clear TList'in elemanlarını yok ederken bu bağlantı kurulan o nesnelerin kendisini de yok eder...
 end;

Implementation

{ TListHelper }

procedure TListHelper.Flush;
var
 I: Integer;
begin
 for I := Self.Count - 1 downto 0 do begin
     TObject( Self[I] ).Free;
     Self.Delete( I );
 end;
end;

P.Safa:Yaşlanarak değil, yaşayarak tecrübe kazanılır.Zaman insanları değil,armutları olgunlaştırır
C.Yücel:Toprak gibi olmalısın! Ezildikçe sertleşmelisin!Seni ezenler sana muhtaç kalmalı! Hayatı sende bulmalı
S.Canan:Bildiğini zannettiğin an hiç bir şey öğrenemezsin
Bilgi uçar
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Nesne Neden Free Olmuyor? Halil Han Badem 3 232 31-07-2019, Saat: 14:28
Son Yorum: sddk
  Json Free Etmek yhackup 4 477 31-07-2019, Saat: 11:17
Son Yorum: Halil Han Badem
  Free Pascal'da AVLTree onurcan1977 2 415 08-06-2019, Saat: 18:22
Son Yorum: onurcan1977
Lightbulb OCR Space - Free OCR API ( Ticari Serbest, Günde 500, ayda 25000 Sorgu ücretsiz ) mrmarman 6 647 12-02-2019, Saat: 09:38
Son Yorum: mrmarman
Brick Free vs FreeAndNil edo 35 7.114 28-05-2018, Saat: 10:55
Son Yorum: edo



Konuyu Okuyanlar: 1 Ziyaretçi