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:

Delphi-Quellcode:

   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!

[mkinzler]

oder .FindComponent()

[dataspider]

Hi,

ich benutze meis folgenden Weg:

Delphi-Quellcode:

interface

uses DBTables;

type
  TMyDataBasObject = class(TDataBase)
  private
  end;

function MyDataBaseObject: TMyDataBasObject;

implementation

Var
  FMyDataBaseObject: TMyDataBasObject = nil;

function MyDataBaseObject: TMyDataBasObject;
begin
  if (FMyDataBaseObject = nil) then
  begin
    FMyDataBaseObject := TMyDataBasObject.Create(nil);
    // oder so, dann kann finalization entfallen
    // FMyDataBaseObject := TMyDataBasObject.Create(Application);
  end;
  Result := FMyDataBaseObject;
  // TODO -cMM: TMyDataBasObject.MyDataBaseObject default body inserted
end;

initialization

finalization
  if Assigned(FMyDataBaseObject) then
    FMyDataBaseObject.Free;

end.

Öffentlich ist nur die function MyDataBaseObject.
Damit wird das Objekt automatisch erzeugt, wenn ich es darüber anspreche.

Cu, Frank
[EDIT] Code war fehlerhaft...[/EDIT]