XProfan

'Stringlänge in einer Bereichsvariablen abfragen
'PRFellow-Vorlage' Autor: Thomas Hölzer
'Die tatsächliche Länge eines Strings in einer
'Bereichvariable abfragen (ohne abschließendes Null-Byte)
Def lstrlen(1) !"KERNEL32","lstrlenA"'
Declare buf#
Dim buf#,32String buf#,0="123456789"
Print lstrlen(buf#)Dispose buf#WaitIn