XProfan

Proc Textadresse

    declare Befehl$,i%,Daten$
    sqlinit ("DSN=Zeta")
    Befehl$="select * from Adresse"
    clearlist
    sqlexec befehl$,1

    if %getcount>1

        i%=2

        while i%<=%getcount

            Daten$=@ListBoxItem$(i%)
            @editbox("",2)
            Setitem adresse&,@Substr$(Daten$,1,"|"),@Substr$(Daten$,2,"|"),@Substr$(Daten$,3,"|"),@Substr$(Daten$,4,"|"),@Substr$(Daten$,5,"|"),@Substr$(Daten$,6,"|"),@Substr$(Daten$,7,"|"),@Substr$(Daten$,8,"|"),@Substr$(Daten$,9,"|"),@Substr$(Daten$,10,"|"),@Substr$(Daten$,11,"|"),@Substr$(Daten$,12,"|"),@Substr$(Daten$,13,"|"),@Substr$(Daten$,14,"|"),@Substr$(Daten$,15,"|"),@Substr$(Daten$,16,"|"),@Substr$(Daten$,17,"|"),@Substr$(Daten$,18,"|"),@Substr$(Daten$,19,"|"),@Substr$(Daten$,20,"|")
            inc i%

        wend

    endif

ENDPROC