### Forums: Forum of Decimal BASIC (Thread #40076)

#### Paract BASIC Error (2018-10-19 23:26 by toml_12953 #82069)

The following program works fine in Decimal BASIC 7.8.5 but gives a divided by zero error in Paract BASIC

DECLARE EXTERNAL FUNCTION FN_split\$

PRINT FN_split\$( "gHHH5YY++///\" )
END

EXTERNAL FUNCTION FN_split\$(s\$)
LET c\$ = s\$(1:1)
LET split\$ = ""
FOR i = 1 TO LEN(s\$)
LET d\$ = s\$(i:i)
IF d\$ <> c\$ THEN
LET split\$ =split\$ & ", "
LET c\$ = d\$
END IF
LET split\$ = split\$ & d\$
NEXT i
LET FN_split\$ = split\$
END FUNCTION

#### Répondre à 82069×

You can not use Wiki syntax
Vous n'êtes pas connecté. Pour distinguer vos messages en provenance du reste, vous devez choisir un surnom. (L'unicité du surnom est pas réservé. Il est possible que quelqu'un d'autre pourrait utiliser exactement le même surnom. Si vous voulez l'assurance de votre identité, nous vous recommandons de vous connecter avant de poster.) Connexion

#### Re: Paract BASIC Error (2018-10-23 10:32 by Shiraishi Kazuo #82074)

I could not reproduced the error.
Confirm the version of Lazarus or so,
and try the following to identify the statement that causes the error.

100 DECLARE EXTERNAL FUNCTION FN_split\$
110 PRINT FN_split\$( "gHHH5YY++///\" )
120 END
130 EXTERNAL FUNCTION FN_split\$(s\$)
140 DEBUG ON
150 TRACE on
160 LET c\$ = s\$(1:1)
170 LET split\$ = ""
180 FOR i = 1 TO LEN(s\$)
190 LET d\$ = s\$(i:i)
200 IF d\$ <> c\$ THEN
210 LET split\$ =split\$ & ", "
220 LET c\$ = d\$
230 END IF
240 LET split\$ = split\$ & d\$
250 NEXT i
260 LET FN_split\$ = split\$
270 END FUNCTION
Répondre à #82069

#### Répondre à 82074×

You can not use Wiki syntax
Vous n'êtes pas connecté. Pour distinguer vos messages en provenance du reste, vous devez choisir un surnom. (L'unicité du surnom est pas réservé. Il est possible que quelqu'un d'autre pourrait utiliser exactement le même surnom. Si vous voulez l'assurance de votre identité, nous vous recommandons de vous connecter avant de poster.) Connexion