Schleife benötigt

lexxrec · 19.12.2006

Hallo Gemeinde,

ich benötige noch eine Schleife für meinen Stundenplan. Wir haben diesen mit Textfeldern gebaut und speichern und lesen diesen aus der Registry aus. Jedoch haben wir es nicht hinbekommen, das Speichern und Einlesen mit einer Schleife zu programmieren.
Wir haben also für jeden Tag der Woche von der 1. bis zur 10. Stunde das Folgende in unserem Code stehen:
txtMontag(0).Text = GetSetting(Stundenplan, Optionen, txtMontag(0).Text, )
txtMontag(1).Text = GetSetting(Stundenplan, Optionen, txtMontag(1).Text, )
txtMontag(2).Text = GetSetting(Stundenplan, Optionen, txtMontag(2).Text, )
txtMontag(3).Text = GetSetting(Stundenplan, Optionen, txtMontag(3).Text, )
txtMontag(4).Text = GetSetting(Stundenplan, Optionen, txtMontag(4).Text, )
txtMontag(5).Text = GetSetting(Stundenplan, Optionen, txtMontag(5).Text, )

SaveSetting Stundenplan, Optionen, txtMontag(0).Text, txtMontag(0).Text
SaveSetting Stundenplan, Optionen, txtMontag(1).Text, txtMontag(1).Text
SaveSetting Stundenplan, Optionen, txtMontag(2).Text, txtMontag(2).Text
SaveSetting Stundenplan, Optionen, txtMontag(3).Text, txtMontag(3).Text
SaveSetting Stundenplan, Optionen, txtMontag(4).Text, txtMontag(4).Text

Da das jedoch kein schönes programmieren ist sind wir weiterhin auf der Suche nach der perfekten Lösung mithilfe einer Schleife. Wir haben For x to Schleifen, Kopf und Fußgesteuerte Schleifen ausprobiert. Jedoch ohne Erfolg.

Hoffe ihr könnt uns helfen. Danke schoneinmal im Vorraus.

Fizbin · 19.12.2006

Hi,

wo habt ihr das Problem mit der Schleife? Ein einfaches

Code:

for x = 0 to 5
       strTemp=txtMontag( &amp; cstr(x) &amp; ).Text 
       txtMontag(x).Text = GetSetting(Stundenplan, Optionen, strTemp, )
next x

sollte doch funktionieren...? Ebenso das SaveSettings

Schleife benötigt

lexxrec

Fizbin

Schleife benötigt

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums