Ermitteln ob ein Objekt (anh. "name"-Eigenschaft) existiert?

[little-x]

Hallo,

ich möchte bei Bedarf ein Datenbank-Objekt (Klasse TDatabase) instanziieren, dynamisch weil ich es nicht immer sicher benötige. Im Falle der Notwendigkeit möchte ich es kreieren , in etwa mit:

   MyDatabaseObjectName:= TDatabase.Create(Application); Das ganze möchte ich aber nur dann machen, wenn es innerhalb Application noch KEIN TDatabase-Objekt mit dem Namen MyDatabaseObjectName gibt. Die Frage ist, wie ich genau das feststelle.

Ich wüßte mir nicht anders zu helfen als so:

Delphi-Quellcode:

function existiert_datenbank_schon: boolean;
var intv: integer;
    retv: boolean;
begin
     i:= 0;
     retv:= false;
     while (i < Application.ComponentCount) and (not retv) do
     begin
         if Application.Components[i] is TDatabase then
             if TDatabase.Components[i].name = 'MyDatabaseObjectName' then
                  retv:= true;
         inc(i);
end;

Aber das jedes mal? Geht das nicht "direkter"? Ich denke Delphi ist so objektorientiert, dann muss man doch fragen können ob es ein gewisses Objekt gibt oder nicht.

Viele Grüße!