* Misfunction *

[dw817]

Hello:

* Well, I'm still dabbling on that B4GL Font Editor, found a definite bug.
Try this:

function string$(l,c$)
  dim i,a$
  for i=1to l
    a$=a$+c$
  next
  return a$
endfunction

dim a$=string$(5,"*")
printr a$
dim b$=string$(5,42)
printr b$

*****
4242424242

Yep, it should give an error since you are trying to return a value from a numeric input when a string is expected.

[UNDISCLOSED]

That is wierd? And it still works when you put in a float instead of an integer?

[matthew]

Personally I don't see what the big deal is, Basic4GL seems to be taking the numerical input & treating it as a string which is why I presume an error isn't occurring.

[DJLinux]

it's a B4GL feature not a bug ;D

if you declare the string param ByVal = default then B4GL will convert a number as string value

but as a workaround you can declare the string param ByRef

function Repeat$(&c$,nTimes)
  dim i,a$
  if nTimes<1 then return "":end if
  for i=1 to nTimes    
    a$=a$+c$
  next  
  return a$
end function

'
dim char$ = "*"
dim a$=Repeat$(char$,5)
printr a$
'
dim b$=Repeat$(42,5) ' now it's an error
printr b$
end

[UNDISCLOSED]

Ahh... now I get it.