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:

zusammenfalten · markieren

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!

oder .FindComponent()

Hi,

ich benutze meis folgenden Weg:

zusammenfalten · markieren

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]