Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Vielen Dank, jetzt bin ich schon ein großen Schritt weiter. Ich hab jetzt auch das Problem des Absturzes ausgemacht.

Code:

RepetitionCheck:=RandomNumber;
While RepetitionCheck = RandomNumber Do RandomNumber:=random(Vocabulary.Count);

Ich wollte verhindern, dass dieselbe Vokabel zwei mal hintereinander abgefragt wird und hab mir damit ne Endlosschleife gebaut, wenn nur noch eine Vokabel vorhanden ist.

Wie erfahre ich denn jetzt welche die Letzte übrig gebliebene Vokabel ist, nachdem alle anderen zufällig mit .Delete entfernt wurden?

Ich dachte sie müsste den Index 0 haben, das gibt aber ein "out of bounds" zurück.

[Delphi.Narium]

Wenn die Vokabeln, nachdem sie erfolgreich "erraten" wurden, aus der Liste entfernt werden, ist Count irgendwann = 0. Dann ist die Liste leer.

Ist Count = 1, ist nur noch eine Vokabel enthalten, dann läuft die Schleife wirklich weiter, bis der Strom ausfällt

Wenn man per Index auf 'ne Stringliste zugreift, sollte man ggfls. vorher abfragen, ob Index >= 0 und kleiner Count ist. Nur dann "greift" man auf einen vorhandenen Wert zu.

Wenn also nur noch eine Vokabel in der Liste ist, könnte man z. B. sowas in der Art machen:

Delphi-Quellcode:

if Vocabulary.Count = 0 then begin
  ShowMessage(Format('Die letzte Vokabel ist: %s',[Vocabulary.ValueFromIndex[0]]);
  // Oder hier das "Fertigformular" (Form3) aufrufen ...
end else begin
  RepetitionCheck:=RandomNumber;
  While RepetitionCheck = RandomNumber Do RandomNumber:=random(Vocabulary.Count);
...

[Schokohase]

Wenn aus der Liste ein zufälliges Element ausgewählt wurde, dann wird es auch aus der Liste entfernt.

Wozu gibt es jetzt diesen RepetitionCheck? Was nicht mehr in der Liste ist, kann auch nicht wieder gezogen werden. Am Index 17 steht ein anderer Wert als vorher (weil die 17 wurde ja entfernt). Wo wäre also das Problem, wenn zweimal hintereinander die 17 gezogen wird?

[KetchUp]

Zitat von Schokohase:

Wenn aus der Liste ein zufälliges Element ausgewählt wurde, dann wird es auch aus der Liste entfernt.
Wozu gibt es jetzt diesen RepetitionCheck? Was nicht mehr in der Liste ist, kann auch nicht wieder gezogen werden. Am Index 17 steht ein anderer Wert als vorher (weil die 17 wurde ja entfernt). Wo wäre also das Problem, wenn zweimal hintereinander die 17 gezogen wird?

Man soll die Vokabel 3 mal hintereinander richtig eingeben müssen, bis sie gelöscht wird. Deswegen will ich verhindern, dass er mehrmals die Gleiche abfragt. Aber ich weiß noch nicht, wie ich jeder Vokabel eine Variable zuweißen kann die dann von 3 runter zählt.

[DieDolly]

Zitat:

Aber ich weiß noch nicht, wie ich jeder Vokabel eine Variable zuweißen kann die dann von 3 runter zählt.

Klassen, SolvedCount

[KetchUp]

Zitat von DieDolly:

Zitat:

Aber ich weiß noch nicht, wie ich jeder Vokabel eine Variable zuweißen kann die dann von 3 runter zählt.

Klassen, SolvedCount

Ich finde es wirklich toll, dass du dir die mühe gemacht hast den Quellcode dafür zu schreiben und auch schade, dass du ihn wieder entfernt hast. Das hätte auch anderen helfen können.

Es fällt mir aber sehr schwer mich in das System reinzudenken und ich kann (und möchte auch nicht) einfach Quellcode kopieren, da ich jede Zeile Quellcode in einem Vortrag erklären können muss. Mir liegt das Programmieren nicht so, bin eher der Grafiker. Ich finde es aber interessant und will eine gute Arbeit abliefern.

[Schokohase]

Dann mal einen Vorschlag ohne Klassen.

Lade die Liste und arbeite diese ab (Eintrag wird sofort gelöscht). Wenn die leer ist dann wieder aus der Datei laden, und nochmal durch, laden und nochmal durch und fertig.