ByteString
(Available in 00 TS Tools(Base) - TS_Tools_String)
Purpose
Set new value as string
Syntax
oString:ByteString:="Test"
Arguments
Description
Set new value as string, if the value is a NULL_STRING then the access 'WordString' will return a NULL_PTR
Example
oString:ByteString:="Test"
SomeAPICallNeedingBSTR( oString:WordString )
Source
ASSIGN ByteString( cByteString AS STRING ) AS STRING PASCAL CLASS TS_String
TSTrace Enter
IF SELF:IsValidObject
DO CASE
CASE !LOGIC( _CAST, SLen( cByteString ) )
IF SELF:_WordString<>NULL_PTR
IF SELF:_MemFree
SysFreeString( SELF:_WordString )
END
SELF:_WordString:=NULL_PTR
END
SELF:_ByteString:=NULL_STRING
CASE !( SELF:_ByteString==cByteString )
IF SELF:_WordString<>NULL_PTR
IF SELF:_MemFree
SysFreeString( SELF:_WordString )
END
SELF:_WordString:=NULL_PTR
END
SELF:_ByteString:=cByteString
END
ELSE