Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Array of string mit randomize..

  Alt 23. Jan 2004, 18:44
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]
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat