To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=47216
------- Additional comments from [EMAIL PROTECTED] Fri Sep 2 22:23:10 -0700
2005 -------
see issue 47215
REM ***** BASIC *****
' option explicit
Type tUserStruct
sString1 as String * 10
nNumber1 as Single
iNumber2 as Integer
cNumber3 as Currency
bTV1 as Boolean
end type
Sub TestWith
Dim myStruct as tUserStruct, iLen1 as Integer, iLen2 as Integer
iLen1 = Len(myStruct) ' Fails with runtime error, so comment it out to let
the rest run
Print "Structured variable length is "; iLen1
With myStruct
.sString1 = "This is a test" ' this string is too long for the field
and
should truncate
Print .sString1, len(myStruct.sString1)' BUT... it does not, Len
returns 14
.nNumber1 = sqr(3.0)
iLen2 = Len(myStruct.nNumber1)
print .nNumber1, iLen2 'Prints "1.732051 8" but the length should be 4
bytes for a Single
.cNumber3 = 2.23606999 * 2.23606999
Print .cNumber3, len(myStruct.cNumber3) ' prints "5.0000 6", where the
length should be 8 bytes
.bTV1 = (1 < 1) ' FALSE
print .bTV1, len(myStruct.bTV1) ' Prints "False 5" but length should be 2
or 4 (not sure which)
End With
End Sub
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
