Fehler bei zuweisung

[gillian_x]

Hallo,

bin auf folgendes Problem gestoßen:

Ich habe 10 Werte in ein Memofeld geschrieben, diese Werte möchte ich nun Tagen zuweise, also für ein Jahr.

Das ganze soll nachdem Zufallsprinzip erfolgen.

Das ganze habe ich mit einer For-Schleife versucht.

Hier tritt nun das Problem auf: Ich habe 365 Tage und 10 Werte, also müssen die Werte ja insgesamt jeweils mehr als einmal vorkommen und ich bekomme die Fehlermeldung: List index exceeds bounds (10).
Gibt es da wohl eine Lösung für?

Ach so, Ausgabe auch in einem Memofeld.

LG

[theo]

Klingt nach "0-Fehler".
Wenn du zehn Werte hast, ist der höchste bei Listeneintag 9 und der erste bei 0.
Du greifst auf den 10ten Eintrag zu, den es gar nicht gibt.

[m.fuchs]

Das ganze habe ich mit einer For-Schleife versucht.

Das ist ja schön. Magst du uns den relevanten Quellcode noch zeigen oder sollen wir raten?

List index exceeds bounds (10).

Das bedeutet, dass du auf ein Element zugreifst, welches nicht existiert. Da musst du deine For-Schleife wohl anders aufbauen. Wie? Kann man dir sagen, wenn man sie gesehen hat.

[gillian_x]

okay

begin
for i := 0 to 355 do begin
day:=memo1.Lines[random(memo1.lines.count)+1];
memo2.lines.Add('Tag'+IntToStr(i)+' '+day);
end;
Memo2.Lines.SaveToFile('test.txt');

Ja, also muss ich es ja iwie hinbekommen, dass Werte mehrfach genommen werden. Nur weiß ich leider nicht wie

[theo]

Das +1 scheint mir zuviel

day:=memo1.Lines[random(memo1.lines.count)+1];

[m.fuchs]

Code: Alles auswählen

day:=memo1.Lines[random(memo1.lines.count)+1];

Tja, wie von Theo vermutet, du hast das Zaunpfahlproblem.

Du hast zehn Einträge in deiner Liste. Count ist also 10. Das erste Element ist 0 und das letzte 9. Also mach dein +1 weg und der Fehler wird verschwinden.

[gillian_x]

ups... Danke!

nun habe ich noch eine weitere Frage!

Gibt es die Möglichkeit festzulegen wie oft ein Wert verwendet wird?

zb Wert 6 insgesamt 100 mal, Wert 2 insgesamt 50 mal, usw...