Delphi-PRAXiS - Einzelnen Beitrag anzeigen - wsdl-klasse property auslesen

**jsp**

Hallo alle,

ich habe folgende Klassen welche zum auslesen von xml-Files dienen.

Delphi-Quellcode:

			  // XML       : NPKNode, global, <complexType>

  // Namespace : http://www.crbnet.ch/crbox_partner

  // ************************************************************************ //

  NPKNode = class(TRemotable)

  private

    Fnumber: string;

    Fnumber_Specified: boolean;

    Ftitle: string;

    Ftitle_Specified: boolean;

    Fdescription: string;

    Fdescription_Specified: boolean;

    FsubNodes: ArrayOfNPKNode;

    FsubNodes_Specified: boolean;

    procedure Setnumber(Index: Integer; const Astring: string);

    function  number_Specified(Index: Integer): boolean;

    procedure Settitle(Index: Integer; const Astring: string);

    function  title_Specified(Index: Integer): boolean;

    procedure Setdescription(Index: Integer; const Astring: string);

    function  description_Specified(Index: Integer): boolean;

    procedure SetsubNodes(Index: Integer; const AArrayOfNPKNode: ArrayOfNPKNode);

    function  subNodes_Specified(Index: Integer): boolean;

  public

    destructor Destroy; override;

  published

    property number:      string          Index (IS_OPTN) read Fnumber write Setnumber stored number_Specified;

    property title:       string          Index (IS_OPTN) read Ftitle write Settitle stored title_Specified;

    property description: string          Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified;

    property subNodes:    ArrayOfNPKNode  Index (IS_OPTN) read FsubNodes write SetsubNodes stored subNodes_Specified;

  end;

  // ************************************************************************ //

  // XML       : NPKPositionBase, global, <complexType>

  // Namespace : http://www.crbnet.ch/crbox_partner

  // ************************************************************************ //

  NPKPositionBase = class(NPKNode)

  private

    FentryStart: Integer;

    Fhint: string;

    Fhint_Specified: boolean;

    FtitleReadOnly: Integer;

    FprodNormCode: string;

    FprodNormCode_Specified: boolean;

    FpublicationCode: string;

    FpublicationCode_Specified: boolean;

    FdrawingID: string;

    FdrawingID_Specified: boolean;

    procedure Sethint(Index: Integer; const Astring: string);

    function  hint_Specified(Index: Integer): boolean;

    procedure SetprodNormCode(Index: Integer; const Astring: string);

    function  prodNormCode_Specified(Index: Integer): boolean;

    procedure SetpublicationCode(Index: Integer; const Astring: string);

    function  publicationCode_Specified(Index: Integer): boolean;

    procedure SetdrawingID(Index: Integer; const Astring: string);

    function  drawingID_Specified(Index: Integer): boolean;

  published

    property entryStart:      Integer  read FentryStart write FentryStart;

    property hint:            string   Index (IS_OPTN) read Fhint write Sethint stored hint_Specified;

    property titleReadOnly:   Integer  read FtitleReadOnly write FtitleReadOnly;

    property prodNormCode:    string   Index (IS_OPTN) read FprodNormCode write SetprodNormCode stored prodNormCode_Specified;

    property publicationCode: string   Index (IS_OPTN) read FpublicationCode write SetpublicationCode stored publicationCode_Specified;

    property drawingID:       string   Index (IS_OPTN) read FdrawingID write SetdrawingID stored drawingID_Specified;

  end;

Ich lese z.B. das property 'hint' Im debugger sehe ich dass Fhint_Specified true oder false ist.
Wenn der Wert false ist, und ich 'hint' einem String zuweise, gibt es einen Stackoverflow.
Wie komme ich an Fhint_specified ran?

Gruss, Jörn