Überprüfen ob ein Objekt existiert aber wie?

[Furtbichler]

Zitat von Darlo:

Zitat von 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

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

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;

[Sir Rufo]

Zitat von 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;

Das Problem liegt doch darin begründet, dass diese Funktion nicht zuverlässig funktioniert.
Es ist reine Glückssache.

Wenn du einen Zufallsgenerator haben möchtest, ist das eine tolle Funktion.
Für die Überprüfung, ob an der Speicherstelle auf die die Referenz zeigt eine gültige Instanz vorliegt, taugt die nicht die Bohne.

Das Warum findet sich in den Beiträgen hier erläutert

[nahpets]

Zitat von Sir Rufo:

Zitat von nahpets:

Besser? Oder auch noch böse?

Das Warum findet sich in den Beiträgen hier erläutert

Ok, auch böse und wer lesen kann ist klar im Vorteil, stelle mich sofort in die Ecke und schäme mich