Wert aus Array entfernen

[Walgo]

Also ich bin schonmal einen Schritt weitergekommen.
Ich wollte aber nochmal bei Arrays bleiben - zumindest für heute ^^

marabu - das Problem bei deiner Prozedur ist, dass die Funktion
"RandomFrom()" nur einen Array annimt, etwas wie "(Gesamt - i)" funktioniert leider nicht
So sieht mein "Werte"-Array aus:

Code:

 SetLength(werte,49);
 for i:= 0  to 48 do werte[i]:=i+1;

Nach meiner Vorstellung hat er jetzt die Indexzahlen 0-48, denen die Werte 1-49 zugeteilt sind.

Code:

for i := 0 to 5 do

        begin
            zw:= RandomFrom (werte);           //"berechnen" zuer Zufallszahl
            zufall[i]:= zw;                    //speichern in zw..
            werte[zw-1]:=length(werte);        //ersetzten der gezogenen Zahl (Bsp. 35 -> ich  
                                                 brauche den Index 34) durch die letzte Zahl, also 
                                                 falls es die erste Zahl ist - 49 (Index 48)
            SetLength(werte,length(werte)-1);  // Löschen der letzten Zahl, damit diese nicht 2mal
                                                  im Array vorkommt
        end;

Blöderweise produziert er immernoch einen Fehler, jedoch sehr merkwürdig, beim ersten Starten funktioniert es IMMER, erst, wenn ich mehrere Male die Geschichte laufen lasse produziert er irgentwann eine Exception!!

Ich hab echt keinen Plan warum der immer meckert, vor allem, warum es manchmal klappt und manchmal nicht, kennt das jemand von euch?

grüße walgo