XProfan

PROC GETITEMTXT

    dim itemtexts#,255
    LISTX&=GetSelectedLine(wm_liste&)
    GetLineText(wm_liste&,listx&,itemtexts#)
    itemtext$=String$(itemtexts#,0)
    itemtext$=Del$(itemtext$,len(itemtext$),1)
    dispose itemtexts#
    RETURN ITEMTEXT$

GETITEMTEXT
Eintrag$=$(0)