Überprüfen ob ein Objekt existiert aber wie?

[Sir Rufo]

Doku http://docwiki.embarcadero.com/RADSt...amme_und_Units ;)

[Furtbichler]

Zitat:

Zitat von WIng2005 (Beitrag 1218312)

@Furtbichler

Kannst du mal bitte kurz erläutern, welchen Zweck dieser Bereich erfüllt, bzw. wann dieser aufgerufen wird?:

Delphi-Quellcode:

initialization
  _finalized := false;
  _mediaplayer := nil;
finalization
  _finalized := true;
  FreeAndNil(_mediaplayer);
end

Danke euch allen!!!

Klar:
Beim Starten der Anwendung werden alle 'Initialization'-Bereiche aller eingebundenen (explizit und implizit) Units aufgerufen: der richtige Ort, um Variablen zu initialisieren. Global ist 'böse' bzw. sollte vermieden werden, aber wer statische Klassen albern findet, kann hier in the old fashioned way seine statischen Felder initialisieren.

Beim Beenden wird der 'Finalization'-Abschnitt aller Units aufgerufen. Hier kann man aufräumen.

Ich initialisiere die Variable '_mediaplayer' mit nil. Beim ersten Aufruf der Funktion 'Mediaplayer' wird sie initialisiert. Aber nur dann, wenn der Finalization-Abschnitt noch nicht durchlaufen wurde.

[WIng2005]

Danke euch beiden!
Werde mir das heute abend mal anschauen bzw. ausprobieren.

[derMischka]

Hier noch ein weiter Ansatz:

Delphi-Quellcode:

function ObjectExists(aObj: TObject): boolean;
begin
  Result := False;
  if aObj = nil then exit;
  try
    Result := aObj.InheritsFrom(TObject);
  except
  end;
end;

derMischka

[Darlo]

Zitat:

Zitat von derMischka (Beitrag 1218610)

Hier noch ein weiter Ansatz:

Delphi-Quellcode:

function ObjectExists(aObj: TObject): boolean;
begin
  Result := False;
  if aObj = nil then exit;
  try
    Result := aObj.InheritsFrom(TObject);
  except
  end;
end;

derMischka

Leere Exception-Blöcke sind doch noch böser als globale Vars. :duck:

[Furtbichler]

Zitat:

Zitat von Darlo (Beitrag 1218635)

Zitat:

Zitat von derMischka (Beitrag 1218610)

Hier noch ein weiter Ansatz:

Delphi-Quellcode:

function ObjectExists(aObj: TObject): boolean;
begin
  Result := False;
  if aObj = nil then exit;
  try
    Result := aObj.InheritsFrom(TObject);
  except
  end;
end;

derMischka

Leere Exception-Blöcke sind doch noch böser als globale Vars. :duck:

Absolut korrekt, obwohl hier 'eigentlich' eine scheinbar gute Absicht dahinter steckt, nämlich auch nicht genullte, aber ungültige Zeiger als solche zu erkennen.

Aber das kaschiert ja nur den eigentlichen Fehler. Und *das* ist sogar noch schlimmer als leere exception-Blöcke.

[Namenloser]

Das ganze Konstrukt ist böse. An der Stelle im Speicher kann ja gerade rein „zufällig“ was stehen, was so aussieht wie ein Objekt. Und ausgerechnet in dem Fall, dass das Objekt gerade freigegeben wurde, ist es sehr wahrscheinlich, dass die Daten noch 1:1 dort stehen, obwohl das Objekt theoretisch nicht mehr existiert (es sei denn, Delphi nullt den Speicherbereich nach der Freigabe, tut es aber soweit ich weiß nicht).

[Furtbichler]

Wie böser kann man eigentlich werden, also böser als *Böse*? Nicht das das hier abfärbt und irgendwie ein Eigenleben entwickelt.

Nichtsdestotrotz: Richtiger Einwand.

[derMischka]

zu meiner Verteidigung:

Da das Ergebnis mit False oben initialisiert ist, braucht man die "nur lesende" Funktion in der Exception-Klammer ncht weiter behandeln --> es wurde kein Code verändert (da nur gelesen) und bei einer Exception ist das richtige Ergebnis (False) ja schon im Register eax.

der Mischka

[nahpets]

Besser? Oder auch noch böse? ;-)

Delphi-Quellcode:

function ObjectExists(aObj: TObject): boolean;
begin
  Result := aObj <> nil;
  if Result then
  try
    Result := aObj.InheritsFrom(TObject);
  except
    Result := false;
  end;
end;