Welcome, Guest

Page:
1

TOPIC:

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 14:32 #24330

AlainC
Topic Author

Offline

Posts: 10

Hello,

I have a problem with the return of the PadL() function:
LOCAL c AS STRING
LOCAL i AS REAL8
i := 5
c := PadL(i, 2, "0") // => "5," instead of "05"

If "i" is typed DWORD then PadL() return "05" as expected.
LOCAL c AS STRING
LOCAL i AS DWORD
i := 5
c := PadL(i, 2, "0") // => "05" ok

Do you have the same result ?

XSharp 2.13.2.2, Dialect VO, Properties : all options are checked

Regards
Alain

Please Log in or Create an account to join the conversation.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 15:21 #24331

ic2

Offline

Posts: 1573

Hello Alain,

AlainC wrote:
I have a problem with the return of the PadL() function:
c := PadL(i, 2, "0") // => "5," instead of "05"

Do you have the same result ?

I tried it in my X# 2.12 and also in VO, both have the same result. When I change the 2nd parameter to 4 I get 5,00.

So I think that with a Real8 as uValue, PadL first expands the number of decimals when nLength is increased.

Dick

Please Log in or Create an account to join the conversation.

Last edit: by ic2.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 16:12 #24332

FFF

Offline

Posts: 1391

Alain,
yes. That said, i never realized, i could "pad" non strings

Seems, Real8, Real4, Double, Single are broken, while Float works as expected.

Regards
Karl (X# 2.14.0.4; Xide 1.33; W8.1/64 German)

Please Log in or Create an account to join the conversation.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 16:13 #24333

Chris

Offline

Posts: 3736

Hi Alain,

It's as Dick said, a floating point value is first converted to its string representation, following the same rules that Str() uses, using the number of decimal points specified with SetDecimal(). It's the same as in VO.

XSharp Development Team
chris(at)xsharp.eu

Please Log in or Create an account to join the conversation.

Last edit: by Chris.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 16:31 #24334

AlainC
Topic Author

Offline

Posts: 10

Hello everyone,

OK, I understand. We learn every day ! Float seems to follow the same rules.

Alain

Please Log in or Create an account to join the conversation.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 16:34 #24335

FFF

Offline

Posts: 1391

Chris,
why does it work with FLOAT?

Regards
Karl (X# 2.14.0.4; Xide 1.33; W8.1/64 German)

Please Log in or Create an account to join the conversation.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 18:35 #24336

Jamal

Away

Posts: 303

The problem seems to be internal to the PadL function which in turn calls Ntrim(uValue). The NTrim seems to be the culprit.
I created a PadL2() from the X# PadL() so you can see the issue and workaround by using:
ret := uValue:ToString() instead of ret := Ntrim(uValue)

Also, note that Real8 value is actually 5.00 not 5 and the length of the variable is 4 not 1.
FLOAT value is 5 and has no decimal point and length is 1. That's why the code works with FLOAT not REAL8 since your are PADL to a length of 2. Watch the variables in the VS debugger to see their value representations.

Robert: Just a suggestion: C# will not let assign you a value like that with no decimal points. May X# can do a compiler check to prevent such ambiguity and assumptions.

USING System
USING System.Collections.Generic
USING System.Linq
USING System.Text

FUNCTION Start() AS VOID STRICT
    LOCAL c AS STRING
    LOCAL i AS real8
    i := 5
    c := PadL2(i, 2, "0")    // => "05"
    
    
    Console.WriteLine(c) 
    Console.ReadKey()
RETURN 
FUNCTION PadL2( uValue AS USUAL, nLength AS INT, cFillChar := " " AS STRING ) AS STRING
    // If they send in an empty string then change to " "
    IF cFillChar == NULL .OR. cFillChar :Length == 0
        cFillChar := " "
    ENDIF
    LOCAL ret AS STRING
    IF IsNil(uValue)
        ret := ""
    ELSEIF uValue:IsNumeric
        ret := uValue:ToString()  // was Ntrim(uValue)
       // ret := Ntrim(uValue)
    ELSE
        ret := uValue:ToString()
    ENDIF  
    
    RETURN IIF( ret:Length > nLength, ret:Remove( nLength ), ret:PadLeft( nLength, cFillChar[0] ) )

However, this works taking into account the decimal points:

FUNCTION Start() AS VOID STRICT
    LOCAL c AS STRING
    LOCAL i AS real8
    i := 5.00
    c := PadL(i, 5, "0")    // =>  05.00
        
    Console.WriteLine(c) 
    Console.ReadKey()
RETURN

Jamal

Please Log in or Create an account to join the conversation.

Last edit: by Jamal.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 18:42 #24337

Chris

Offline

Posts: 3736

Hi Karl,

FFF wrote:
Chris,
why does it work with FLOAT?

That's because the FLOAT type contains formatting information, how many decimal digits should be displayed when printing the number. When using fFloat := 5, then you specify zero decimal digits to be printed when converting to string, so in this case it will give the result you would expect. But if you used fFloat := 5.000, then you would specify 3 printable decimal digits and you would get more similar results with REAL8.

XSharp Development Team
chris(at)xsharp.eu

Please Log in or Create an account to join the conversation.

Problem with PadL() and REAL8 parameter ? 03 Nov 2022 21:13 #24338

robert

Offline

Posts: 3269

Karl,

FFF wrote:
Alain,
yes. That said, i never realized, i could "pad" non strings
Seems, Real8, Real4, Double, Single are broken, while Float works as expected.

Nothing is broken.
PadL() expects a usual parameter. Usuals do not contain REAL4 (Single) or REAL8(double) values but floats.
When converting the Real4 or Real8 value to a usual then the runtime uses the current SetDecimals() setting to set the # of decimals that the usual should show when "stringifying" the value.

See github.com/X-Sharp/XSharpPublic/blob/mai...Types/Usual.prg#L121 for the usual constructor that accepts a REAL8 value.

Robert

XSharp Development Team
The Netherlands

Please Log in or Create an account to join the conversation.

Page:
1

Forum

Public Forums

Product

Problem with PadL() and REAL8 parameter ?