Array of string mit randomize..

[SirThornberry]

folgender Source ist ungetestet sollte aber gehen

Delphi-Quellcode:

var numarray: Array of Integer;
    zufallszahl, count: Integer;
    nichtvergeben: Boolean;
begin
  zufallszahl := random(length(MeinArray)); //zufallszahl erzugen
  setlength(numarray, length(numarray) + 1); //array in dem zufallszahlen gespeichert werden erweitern
  numarray[length(numarray)-1] := zufallszahl; //erzeugte zufallszahl sichern
  Label1.caption := MeinArray[zufallszahl];

  repeat
    nichtvergeben := True;
    zufallszahl := random(length(MeinArray)); //zufallszahl erzeugen
    for count := 0 to length(numarray) - 1 do  //array der bisherigen zufallszahlen durchlaufen
      if numarray[count] = zufallszahl then    //wenn zufallszahl bereits in verwendeten zufallszahlen vorhanden
        nichtvergeben := false;  //nichtvergeben auf false setzen
  until nichtvergeben;  //schleife läuft so lange bis eine zufallszahl erzeugt wurde dies noch nicht gibt
  setlength(numarray, length(numarray) + 1); //array der bisherigen zufallszahlen erweitern
  numarray[length(numarray)-1] := zufallszahl;  //erzeugte zufallszahl speichern
  Label2.caption := MeinArray[zufallszahl];  //zufallsstring zuweisen


  repeat
    nichtvergeben := True;
    zufallszahl := random(length(MeinArray)); //zufallszahl erzeugen
    for count := 0 to length(numarray) - 1 do  //array der bisherigen zufallszahlen durchlaufen
      if numarray[count] = zufallszahl then    //wenn zufallszahl bereits in verwendeten zufallszahlen vorhanden
        nichtvergeben := false;  //nichtvergeben auf false setzen
  until nichtvergeben;  //schleife läuft so lange bis eine zufallszahl erzeugt wurde dies noch nicht gibt
  setlength(numarray, length(numarray) + 1); //array der bisherigen zufallszahlen erweitern
  numarray[length(numarray)-1] := zufallszahl;  //erzeugte zufallszahl speichern
  Label3.caption := MeinArray[zufallszahl];  //zufallsstring zuweisen
  [...]

end;

[Edit]schließendes Delphi-Tag vergessen[/Edit]
[Edit2]Getestet und fehler beseitigt - funktioniert somit 100%[/Edit2]