{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;