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

[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]