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]