Page 1 of 1

Any chance to fix this old string problem?

Posted: Wed Apr 06, 2016 8:31 pm
by akee

Code: Select all

Procedure$ JoinString_Private(first$, second$ = "")
  ProcedureReturn first$ + " " + second$
EndProcedure

ProcedureDLL$ JoinString(first$)
  ProcedureReturn JoinString_Private(first$)
EndProcedure

ProcedureDLL$ JoinString2(first$, second$)
  ProcedureReturn JoinString_Private(first$, second$)
EndProcedure

Code: Select all

Debug JoinString("A", JoinString("F", "H"))    ; Output is F H instead of A F H

Re: Any chance to fix this old string problem?

Posted: Wed Apr 06, 2016 8:53 pm
by Joris
You used the wrong one.

Debug JoinString2("A", JoinString2("F", "H"))

Re: Any chance to fix this old string problem?

Posted: Thu Apr 07, 2016 12:03 pm
by akee
Joris,
This will not work because JointString2 is already compiled with TailBite so it cannot be detected. :wink:

Re: Any chance to fix this old string problem?

Posted: Thu Apr 07, 2016 12:21 pm
by acreis
I don't have Tailbite here.

Should you pelase confirm the problem with the following code?

Code: Select all

Procedure$ JoinString_Private(first$, second$)
  ProcedureReturn first$ + " " + second$
EndProcedure

ProcedureDLL$ JoinString(first$)
  ProcedureReturn JoinString_Private(first$, "")
EndProcedure

ProcedureDLL$ JoinString2(first$, second$)
  ProcedureReturn JoinString_Private(first$, second$)
EndProcedure

Re: Any chance to fix this old string problem?

Posted: Sun Apr 10, 2016 1:27 pm
by akee
Tailbite the longer code with the latest then run the debug example.