XProfan

Español

¡Hola Allerseits,
Yo sitze ya seit Stunden a diesem Problema y ya no vienen

Yo versuche una choice Box a redactar, welche el Vorgaben de uno ini o. Texto datei liest .
El Texto datei es como folgt aufgebaut:

Hans
Jürgen
Fritz
Joseph

Kompilieren Marca Separación

Def &False 0
Def &True 1
Declare hWin&, hCombo&, Quit&,Arbeiter&
hWin& = @Create("Window", %hWnd, "ChoiceBox", 0, 0, 320, 200)

If hWin&

    hCombo& = @Create("ChoiceBox", hWin&, "", 10, 10, 280, 150)

    WhileLoop 1, 10, 1

        Arbeiter&=ReadText &loop,"Arbeiter.txt"
        @AddChoice(hCombo&, "Arbeiter " + @Str$(Arbeiter&))

    EndWhile

    Quit& = &False

    Repeat

        WaitKey

        If %Key = 2

            Quit& = &True

        EndIf

    Until Quit& = &True

EndIf

'-End-------------------------------------------------------------------
End

02.05.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

ReadText funktioniert no bastante así, como du lo dir vorstellst.
Am besten machst du lo, en el du el Expediente por Reset öffnest y input ausliest.
Kompilieren Marca Separación

declare zeile$
Assign #1,"Arbeiter.txt"'Der Datei wird eine Nummer zugewiesen
Reset #1'Datei zum Lesen geöffnet

whilenot EoF(#1)'solange Ende der Datei nicht erreicht wurde

    input #1,zeile$'Eine Zeile deiner Datei wird eingelesen
    AddChoice(hCombo&,"Arbeiter " + zeile$)

EndWhile

Close #1'Datei geschlo

span>