@Kaeru: Das hat schon seine Richtigkeit.
Zum Beispiel für schnelle Stringroutinen:
Code: Alles auswählen
Procedure Quersumme_ASCII(*string.BYTE)
Protected Summe.l
While *string\b
Summe + *string\b & $FF
*string + 1
Wend
ProcedureReturn Summe
EndProcedure
Debug Quersumme_ASCII(@"huhu")
; oder was lustiges
Debug Quersumme_ASCII(@"150")
Debug Quersumme_ASCII(@"159")
@Franky: Das scheint eine Unstimmigkeit in PureBasic zu sein. Schau mal hier. Ich hab den selben Fehler. Allerdings auch eine Lösung dafür.
Code: Alles auswählen
Procedure Instring(*string.BYTE, usepos.l)
If *string=0
MessageRequester("Is ja klar","So kann das net gehen")
Else
MessageRequester("Klar","So geht das")
EndIf
EndProcedure
procpos.l
proctext.s
Instring(@proctext, procpos)
proctext = ""
Instring(@proctext, procpos)
PS.: Mozilla Firefox ist echt bescheuert. Ich deinstallier das nochmal. Der kann ja noch net mal Smilies und Code-Tags so setzen wie es sein soll.
