Objekt = leer?

[youuu]

Hi,

ich wie kann man testen ob ein Objekt leer ist?

Delphi-Quellcode:

if CustomerPos.ID = '' then

funktioniert leider nicht, es gibt eine Exception.

[mkinzler]

Was meinst du mit leer?
if not Assigned( <Object>) then ...

[DeddyH]

Was ist CustomerPos und was ist ID?

[webcss]

if assigned(CustomerPos) then oderif CustomerPos<>nil then

[himitsu]

das funktioniert aber nur, wenn explizit NIL zugewiesen wurde.

z.B. mit X := nil; initialisiert (außer die "Variable" liegt zufällig in einer anderen Klasse, wo anfangs alles per Standard schon mit 0 aka NIL gefüllt ist)


oder per

Delphi-Quellcode:

FreeAndNil(X);

// bzw.
X.Free;
X := nil;

freigegeben

[youuu]

Zitat von DeddyH:

Was ist CustomerPos und was ist ID?

Delphi-Quellcode:

  
  TCustomerPositionen = class
  public
    ID: String;
  End;

CustomerPos: TCustomerPosition;

[DeddyH]

Dann siehe obige Antworten.

[himitsu]

Was die Exception betrifft:

stell dir ein Objekt wie einen Pointer vor (ist es intern ja auch)

Delphi würde quasi sowas draus machen

Code:

if CustomerPos[color=#ff0000][b]^[/b][/color].ID = '' then

und wenn die Objektvariable nun auf NIL steht oder nur irgendeinen zufälligen Wert hat, dann wird praktisch auf etwas nicht Exisierendes zugegriffen und dann knallt es natürlich ganz laut.

[youuu]

Ich setze CustomerPos:= nil;

Teste dann per Button

Delphi-Quellcode:

if not assigned(CustomerPos) then
    Showmessage('PosAdd')
  else
    Showmessage('PosUpdate');

und er geht in else rein, sollte doch normal nicht?

[mkinzler]

Eigentlich nicht