Hallo

Ich bekomme es einfach nicht hin meinen string in eine Funktion zu übertragen.
Mein Code in Bascom




Declare Sub Test(zahl As string * 1)

Dim Temp As String * 1

Do
Temp = ""
Call Test(Temp)
Loop
End


Sub Test([byref]zahl As string * 1)
local wert as byte

wert = asc(zahl)
print wert

End Sub




Habe auch schon ausprobiert von byref auf byval zu schalten. Auch nichts.
Er meckert be der Funktion wert = asc(zahl), weil der typ der Variable nicht übereinstimmt


Danke für eure Hilfe