Mega Code Archive

[] Uygulamada bulunan tüm bileşenlere erişmek

{Aşağıda bulunan kodla uygulamada oluşturulan bütün bileşenlere erişimi sağlar. (Screen bileşeni hariç.) Böyle bir kodla uygulama çalışırken bütün veritabanlarını kapatmak veya açmak için kullanılabilir. Delphi bileşenleri tıpkı klasörlerdeki gibi bir yapıya sahiptir. Application Bileşeni kök bileşendir. (Tabi klasör karşılığı "c:\" dir.) Bütün bileşenlerin Owner özellikleri takip edlirse (yani Owner 'ın Owner'ı ...) sonunda varılan yer Application nesnesi olur. Bu fonksiyon sonuçta bulduğu bileşen sayısını verir..} function BilesenleriniGez(Component:TComponent):Integer; var i:Integer; begin //ShowMessage(Component.Name+' - '+Component.ClassName); //if Component is TDataSet then TDataSet(Component).Close; //<- DataSet lerin kapatılması Result:=1; for i:=0 to Component.ComponentCount-1 do Result:=Result+BilesenleriniGez(Component.Components[i]); end; function TumBilesenleriGez:Integer; begin Result:=BilesenleriniGez(Application); //<- Form ya da DataModule ismi verilirse sadece o bölümün bileşenlerini elde eder... end;