WordString

 (Available in 00 TS Tools(Base) - TS_Tools_String)

Purpose

Set value as BSTR(PTR)

Syntax

oString:WordString:=SomeAPICallResultingInBSTR( )

Arguments

pWordString
BSTR(PTR)

Description

Set new value as BSTR pointer, if the value is a NULL_PTR then the access 'ByteString' will return a NULL_STRING

Example

oString:WordString:=SomeAPICallResultingInBSTR( )
? oString:ByteString

Source

ASSIGN WordString( pWordString AS PTR ) AS PTR PASCAL CLASS TS_String
   TSTrace Enter
   IF SELF:IsValidObject
      IF SELF:_WordString<>pWordString
         IF SELF:_WordString<>NULL_PTR
            IF SELF:_MemFree
               SysFreeString( SELF:_WordString )
            END
            SELF:_WordString:=NULL_PTR
         END
         SELF:_ByteString:=NULL_STRING
         SELF:_WordString:=pWordString
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
   END
   TSTrace Leave
RETURN SELF:_WordString