Aufruf: API Funktionen

STRING = APIzGetStringFromItem(iItem AS INTEGER)

Rückgabe: API Funktionen

Rückgabe der Funktion: STRING

Code: API Funktionen

FUNCTION APIzGetStringFromItem (iItem AS INTEGER) AS STRING
	LOCAL lcRet,liP
	liP   = m.iItem
	lcRet = ""
	DO WHILE .T. AND m.liP>0
		IF ASC(SYS(2600,m.liP,1))<>0
			lcRet = m.lcRet + SYS(2600,m.liP,1)
			liP   = m.liP + 1
		ELSE
			EXIT
		ENDIF
	ENDDO
	RETURN m.lcRet
	*/ Rückgabe eines Strings mittels eines Zeigers und Nullterminierung
ENDFUNC