TurboPL Referenz

Assigned Prozedur

Top  Previous  Next

Syntax

Assigned(Object: Object): Integer

Erklärung

Liefert 1, wenn die Objektvariable belegt ist und ansonsten 0.

Beispiel

Der Entwickler will überprüfen, ob ein bestimmtes Formular geöffnet ist und dieses dann schließen

procedure FormularSchliessen(Formularname: String)
       vardef o: DataWnd;
       o := FindDataWnd(Formularname)
       if Assigned(o)
               Message("Das Formular " + Formularname + " wird geschlossen", "Schließen")
               o.CloseWnd
       end
endproc

Siehe auch

FindDataWnd