Überprüfen ob ein Objekt existiert aber wie?

[Schuster]

Wie kann ich feststellen ob ein Bestimmtes Button oder TPanel existiert??

Ich erstelle die Komponenten zur Laufzeit.

Mein Problem ist das ich ein Panel.hide machen will --> aber wenn noch nicht erstellt --> Fehlermeldung

[Aenogym]

hi,

Delphi-Quellcode:

if assigned(myButton) then
  //existiert
else
  //existiert nicht

Aenogym

[Dax]

Objekte sind generell Pointer. Deshalb ist ein nicht erstelltes Objekt immer nil
Einfach mit if Objekt <> nil oder Assigned checken (eigentlich das selbe). Sollte bei dem Vergelich true raus kommen, exisitert das Objekt.

[Christian Seehase]

Moin Dax,

Zitat von Dax:

Sollte bei dem Vergelich true raus kommen, exisitert das Objekt.

vorsicht.
Wenn das Objekt mit

Objekt.Free; freigegeben wird, oder lokal deklariert wird, stimmt die Aussage nicht, da dann der Pointer immer noch einen Wert enthält, aber nicht mehr (zumindest zwingend) auf das Objekt verweist.

[Sprint]

Zitat von Dax:

Objekte sind generell Pointer.

Du sprichst von einer Variable die eine Objektreferenz beinhaltet.

Zitat:

Deshalb ist ein nicht erstelltes Objekt immer nil

Mit Assigned und/oder nil kannst du nur eine Variable prüfen, ob sie eine Objektreferenz beinhaltet oder halt nicht.

Zitat:

Sollte bei dem Vergelich true raus kommen, exisitert das Objekt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin

  if Assigned(List) then
  begin
    List.Add('So kann man nicht prüfen, ob ein Objekt existiert.');
    List.Free;
  end;

end;

[Dax]

Vergesst, was ich gesagt habe

[Aenogym]

oha, okay. dann muss ich micha uch entschuldigen

Aenogym

[choose]

Vielleicht können die Beiträge im Thread IsObject/IsClass dem Fortkommen dieser Diskussion dienen.

[Boombuler]

Is zwar nich der beste Style aber funktionieren müsste das auch so:

Delphi-Quellcode:

try
  Panel.hide
except end;

denn das sollte in diesem Fall schon ausreichen oder?

Greetz
Boombuler

[WIng2005]

Hallo Gemeinde,

ich greife dieses Thema nochmal auf, da ich irgendwie hier nicht weiterkomme:
Ich möchte eine Art Toggle erstellen, der per Button ein Objekt erzeugt oder, wenn es schon vorhanden ist freigibt. Eigentlich ging ich davon aus, dass ich dies mit:

Delphi-Quellcode:

var mPlayer:TMPlayer;
begin
if not assigned(mPlayer) then
  mPlayer:=TMPlayer.create
else freeandnil(mplayer);
end;

erreichen könnte. Jedoch bekomme ich schon beim 1. Aufruf im Else-Zweig eine Zugriffsverletzung. Dabei ist mir nur nicht ganz klar, warum Assigned schon beim 1. Prüfen das Objekt als erzeugt erkennt (?). Wo liegt hier mein Denkfehler?

Danke für eure Hilfe!!